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FOREWORD 


This work was performed for and funded by the Tactical Missile program in 
the Naval Surface Weapons Center. The purpose is to develop a fast method to 
provide a three dimensional starting plane flowfield to he used in a space- 
marching-type calculation for the afterbody flowfield of spherically capped 
missiles at incidence in supersonic flight speed. Utilizing the property of 
spherical symmetry of the flowfield about a sphere, three dimensional starting 
plane flowfield may be interpolated from the results of an axisymmetric 
flowfield about a sphere, which is available from an existing blunt body 
computer program (NOSTIP) with considerably less computing time. This report 
describes the analysis of the interpolation method. Examples and listings of 
computer programs for the axisymmetric and the three dimensional starting 
plane flowfields about a sphere in the Mach number range from j2o3te Ue and 
angle of attack between 0 to 35 degrees are presented. 


T. Hsieh would like to thank Dr. C. P. Li of NASA Johnson Space Flight 
Center, Houston, Texas, for providing the three dimensional inviscid results 
for the starting plane flowfield shown in Figure 9. 


Approved by: 


oo 0 (Slatelin 


IRA M. BLATSTEIN, Head 
Radiation Division 
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1.0 INTRODUCTION 


The SWINT code! or any PNS code“ currently in use at NSWC for computing 
inviscid or viscous flows, respectively, over tactical missile configurations 
at angle of attack requires a starting plane flowfield. For Sharp nose 
configurations, these codes themselves can provide the Starting flowfield for 
the after body space marching type calculation. However, for blunted 
nosetips, the implementation of a blunt body code, which can handle a mixed 
supersonic and subsonic flowfield, is the necessary mechanism for the 
generation of this initial marching solution. A general purpose three 
dimensional blunt body code can provide the required Starting plane flowfield - 
data, however, the employment of such a three dimensional flowfield 
calculation is expensive, usually demanding extensive computer storage and 
running time. Nonetheless, for spherically capped bodies a more cost effective 
approach to obtain a three dimensional starting plane flowfield is possible by 
utilizing the axisymmetric flowfield about a sphere. Provided in this report 
is a method of generating a starting plane flowfield for a spherically capped 
body at angle of attack in supersonic flight. It is based on an existing, 
documented and vectorized time-dependent code, NOSTIP ,° with slight 
modifications to cope with low supersonic free stream Mach numbers. 


2.0 ANALYSIS 


In this analysis, the flowfield of asymmetric flow over a Sphere at Mo 
is assumed given by the NOSTIP Code.” Figure 1 shows a sphere at angle of 
attack a and angle of yaw 8 with respect to the body axis OX using the body 
oriented coordinate system (X,Y,Z). The axis of the axisymmetric flow 
coincides with the wind axis ox! using the wind oriented coordinates system 
(XIV yIV aIVy | Flow information in the domain enclosed by the bow Shock, the 
body surface, and the outflow surface, which is a cone with outer cone angle 
) > 1S known. Finite difference space marching type afterbody flowfield 


ma x 
calculations require initial data on a plane perpendicular to the body axis 
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OX. The purpose of the following analysis is to generate starting plane data 
by appropriate interpolation of the blunt body solution for a spherical nose 
cap. 


2.1 THE AXISYMMETRIC FLOWFIELD 


The mesh used in the axisymmetric blunt body calculation will be briefly 
described. As shown in Figure 2, the mesh consists of JNM radial lines from 
the center of the sphere on a meridianal plane in angular increments of 
Ag = Bay! sone - 0.5) (6 for the first ray is 1/2 ao). The last several mesh 
lines are parallel to the last radial line JNM and were not used in the 
interpolation procedure for the starting plane flowfield. Along each radial 
line, there are KMAX nodal points between the body and the shock. Flow 


variables p,p,e,Ua and Va at each nodal point are given. 


In order to construct the initial plane flowfield solution for the 
afterbody marching code, it is necessary to determine for every point Q (see 
Figure 1) on the initial plane, its angular and radial location, ® and Ro 
respectively, in the blunt body flowfield (see Figure 2). Flow properties at 
giv can then be determined through a linear interpolation of flow values at 
its four closest neighboring points. 


The required flowfield domain of the blunt body solution to be used in 
the determination of the starting plane flowfield may be constructed 
graphically as shown in Figure 3. Let the Starting plane be chosen at X = 
Xst. For given values of a and g, it can be shown that the effective angle of 


attack, Ooree OF the angle between the wind axis and the body axis, is 


_ / ee 2 ae 
Le Sin“a + cos* a sin B (1) 


Coff = tan COS a COS B 


The shaded area ABCD in Figure 3 provides the necessary information to determine 
the flowfield solution on the entire starting plane. The starting plane must 
be picked to adhere to the following restrictions: (1) on the Starting plane 
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AD BOW SHOCK 

AB AXIS OF SYMMETRY 
BC BODY SURFACE 

CD OUTFLOW PLANE 


[/) 
Mie 


FIGURE 2. MESH USED IN THE AXISYMMETRIC FLOW CALCULATION 
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FIGURE 3. THE REQUIRED AXISYMMETRIC FLOWFIELD FOR THE DETERMINATION OF STARTING 
PLANE FLOW VARIABLES 
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the flow must be supersonic everywhere in the axial direction and (2) the 
starting plane must be located within the spherical portion of the flowfield 
and cannot be influenced hy the afterbody. Condition (1) is satisfied by 
requiring that the flow along line AB be supersonic in the marching direction 
while condition (2) is met if point C is upstream of the sphere afterbody 
junction. Note that in the viscous case, a subsonic boundary layer is allowed 
to occur on the starting plane in order to satisfy the no-slip boundary 
condition. 


2.2 COORDINATE TRANSFORMATION 


Consider a point 0(X,Y,Z) on the starting plane, the purpose is to find 
the corresponding point qlV in the blunt body flowfield so that the flow 
variables at that point may be determined by interpolation. As shown in Figure 
4, a translation in the pitch plane by holding Z = constant is first carried 


Out, 
xP = xX - Xy, X) = Ry(1 - cos a ) 
vos ¥+¥y, ¥y =Ry sina (2) 
ziz7 


The flow is then rotated about the axis 0 - 0' (see Figure 4a) by two 
successive steps of translating and rotating as shown in Figure 4b. The 
following relations are found 


xil = x! = Xo, Xo = Ry cos a (1 - cos 8) 
zit = 71-75, 27 = RN cos a sing (3) 
yIl = yl 


for translation and 
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yill 


a. TRANSLATION IN PITCH PLANE, 


c. ROTATION IN xX! WI pL ANE 
2=2! 


Ze getZ 


yiv 


ttl iV 
Zi é < 


b. TRANSLATION AND |ROTATION IN d. WIND ORIENTED COORDINATE SYSTEM 
YAW-PLANE, Y! = y!! = y!! 


FIGURE 4. COORDINATE TRANSFORMATION 
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xITT = yl cos g - ZH sin B 
gill = yll Sin gp + zil cos 8 (4) 
yIIl . yll 


for rotation. The final step is to rotate the flow about the origin in the 


xill _ yIll plane as shown in Figure 4c. This gives 


x lV = xlll coS a + yill Sin a 


yiV =~ ill Sina + yill COS a iS) 


7IV = Ill 


The final step sets the wind axis to pass through the center of the sphere 0. 


In the wind-oriented coordinate system, Figure 4d, the angle © and the 


Tength R, may be obtained by, 


2 
IV*.1/2 
Ry = L(Ry - yiVy2 4 pth 9 / 


2 2 
IV 2 pyl¥® , IV 41/2 


: 
ry (6) 
Teo ee) if xl cp 
R N 
0 
IV 
=a - sin” e—) if xl 5 Rw 


With o and R, determined, the known blunt body flowfield may he used to obtain 
the flow variables at OlV by interpolation as described in Figure 2. 
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2.3 VELOCITY COMPONENTS 


What remains to be done is a decomposition of the velocity components Ua 
and Va into u,v,w. This is accomplished using the followings relations, see 
Figure 5: 


In the (XLV yiv. z1V) axes, 


IV 


uv" = Ua 

viv = Va cos p 

wiV = Va sin v (7) 
where 

Ae sin” (2 ¥ jr!) 


In the xT yil. zil axes, 


II. IV IV 


u U cos 8B + WwW Sin 8 


1G ey 


wil = -y lV sing + wil cos B 


In the X, Y, Z axes 


u = yll cos a - vil sin a 
v= yll Sina + vilcogs Oo (9) 
w= wil 
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a. IN THE X!Y, yIY z'V axes c. IN THE X, Y, Z AXES, 
ulV = U, w =wi!! 


w'Ycos B 
b. IN THE X'! y!! 2!! AXEs, d. IN THE X, r, p AXES 
y tly lV 


FIGURE 5. VELOCITY DECOMPOSITIONS 
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If a cylindrical coordinate system is required for the body-oriented 
coordinates, the following relations may he used: 


p= fy? + 7¢ 
Ue =u 
(10) 
V. =v cos p+wsiny 
Voe=w cosy -v sing 


In the interpolation program, for each w on the starting plane the 
location of the shock Rey is first determined. Then, the nodal points between 
the shock and the body are distributed. Once all the nodal points on the 
Starting plane are determined, the interpolation of flow properties can be 
carried out point by point. Both cartesian and cylindrical coordinate 
information is provided. ~ 


3.0 RESULTS AND DISCUSSION 


3.1 AXISYMMETRIC FLOWFIELD OVER A SPHERE 


The cases computed in this report are shown in Table 1. A simplified and 
vectorized version of the NOSTIP code for axisymmetric flow over sphere is 
listed in Appendix A. Figure 6, taken from Reference 3, displays a good check 
of the code against measured surface pressure and density distribution through- 
out the shock layer. Additional checks are provided in Figure 7 for the surface 
pressure measured at Coe 1.5 over the spherical portion of a hemisphere- 
cylinder. Note, however, that experimental results demonstrate the flow 
separation angle for the sphere to occur ahout 8. = 105 degrees for laminar 
flow. Therefore, the last measured data point is in the separated flow region 
which explains its deviation from the calculated curve. The experimental data 
points, designated by the flag, are on the windward side and appear to be 


1] 


cl 


TABLE 1. THE COMPUTED CASES 


Axisymmetric Flow 


* Only half of the results are 
plane. 


Remark 
Inviscid 
Inviscid 
Inviscid 
Inviscid 
Inviscid 
Inviscid 


‘Inviscid 


OF 
AU: 
OF 
0. 
0. 
Q. 
0. 
0. 


Viscous 


printed because of symmetry with respect to the pitch 


p8b-78 YL IMSN 


ol 


‘ 
+a 


@ EXP. 
wa—~ INDUYE & LOMAX 
& KKUTLER ET AL 


5 50 5 100 
Q . DEG 


a. SURFACE PRESSURE 


b. DENSITY DISTRIBUTION 


FIGURE 6. COMPARISON OF SURFACE PRESSURE AND DENSITY FIELD BETWEEN 
CALCULATION AND EXPERIMENT 
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2.0 
MODEL 
INCIDENCE, DEG 
A 5 
y 10 
EXP 4 Oy 15 
6 19 


CAL 


0.5 \ 


te] 
M = 
0.0 si = 


0 50 100 
8 


150 


FIGURE 7. COMPARISON OF CALCULATED AND MEASURED SURFACE PRESSURE FOR SPHERE 


ATM, = 15 
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Slightly higher than calculated value. This may be due to a small 
misalignment in the experiment. In general, however, the agreement is 


satisfactory. Also given in Figure 7 are the surface pressure curves for 
M = 2, 3 and 6, 


Figure 8 shows the domain of the computed axisymmetric flowfield for the 
Mach number range covered in this report. It is evident that as the value of 
Mach number decreases, the computational domain increases, thus more nodal 
points are required to complete the computation. Also shown in Figure 8 are 
the sonic lines. As the Mach number decreases, the sonic line travels 
downstream and the subsonic flow region expands. Therefore, the applicable 
range of angle of attack, using the present method, also decreases. Figure 8 
may be used to graphically determine if a starting plane may be obtained using 
the present input conditions, as well as its optimal location. Note that the 
location of the starting plane can either be automated by the interface code 


or inputted by the user. 
3.2 STARTING PLANE FLOWFIELD 


To verify the computer program for the generation of a starting plane 
flowfield as described in Section 2 a case at No Or 2.08 a = 0.8 (see 
example 5) is compared to a full three dimensional calculation for inviscid 
flow over sphere. The results are compared at p = 0, 60, 120 and 180 deg for 
flow variables p, p, Us, V¥,; Was shown in Figure 9. The agreement is quite 
Satisfactory. For the same case, the symmetric nature of the results have 
been checked when g = 0 or a = 0 (see example 5 and 6). The calculated 
examples are given in Table 1 and the computer print out of the results is 
given in the following pages. 


3.3 APPLICATION OF SWINT 


The application of the interface code to SWINT requires some minor code 
corrections to correspond to the SWINT coordinate system. A coordinate 
transfer from (X, Y, Z) to (Z, X, Y) aligns the Z-axis in the flowfield axial 
direction, with the x and y axes lying in the crossflow plane as seen in 


15 
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Y/Ry, 


FIGURE 8. AXISYMMETRIC FLOW DOMAIN CALCULATED FOR EXAMPLES 1-5 
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15 2.0 1.0 1.5 
R/R 


FIGURE 9. COMPARISON OF STARTING PLANE FLOW VARIABLES BETWEEN PRESENT METHOD 
AND A THREE DIMENSIONAL COMPUTATION, M «=~ 6 AND G= 20 DEG 
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FIGURE 9. (CONTINUED) 
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Figure 10. Likewise, the corresponding velocities, (u,v,w) change to 
(wy,u,-v); in addition, the initial starting plane is now designated by Ler 
and lies along the Z-axis. The computer program for this modified interface 
code for the generation of the starting plane flowfield is listed in Appendix 
Be 

Numerous test cases for the spherical-blunt body to SWINT interface 
problem were computed for the generation of a conical flowfield. Figure ll 
shows the effects of both the spherically-nosed versus the Sharp-nosed cone 
solution runs using SWINT, for the following two cases: (a) eeonycc = 20, 
B = 4.5835° (effective angle of attack = 5° ) and a 10°, and (b) Wo 3.0, 
ao = 59, g = 00 and O. = 20°. Both figures compare the surface pressure 


distributions of several circumferential planes. In each instance, an 
overexpansion occurs resulting from the presence of the blunted nose. 
Furthermore, far enough downstream, this phenomenon dissipates and the 
pressure recovers to the conical solution. For case (a), on the windward side 
the pressure recovers more rapidly, about 25 nose radii downstream, than on 
the leeward side which requires a distance twice as far. Similarly, case (b) 
displays the windward plane recovering approximately 10 nose radii downstream 
as opposed to 1/7 nose radii for the leeward plane. 


In addition, for all the cases studied, an accuracy of within 1%, when 
compared to similar numerical work in Reference 5, for the normal and axial 
force coefficients at the initial starting plane, enhances the validity of 
this blunt-body code. Sample case (b) has been provided in Appendix B.3. 


4.0 SUMMARY 


This report describes a method of generating a starting plane flowfield 
for a spherically capped body at arbitrary angle of attack and angle of yaw 
based on a given axisymmetric flowfield about a sphere (the NOSTIP code). 
Such a starting plane flowfield is required for afterbody flowfield 
calculations using a space marching type numerical code, such as the SWINT 
code or any parabolized Navier-Stokes (PNS) code with application to tactical 
missile design. Examples of computed results are given for axisymmetric flow 
over a sphere in the Mach number range from 1.5 to 10, an angle of attack up 
to 359 and angle of yaw up to 109. The computed results compare well with 
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V,u 
YX 
_ ~ 
o,7 V,u 
-w,V ~ 
u,Ww ~ 
a 
~ 
Uy 


QP 


FIGURE 10. CHANGE OF COORDINATE NOTATION TO MATCH SWINT. 
CHANGE FROM X, Y,Z, TO Z,X, Y WITH THE CORRESPONDING 


CARTESIAN VELOCITIES FROM u, v, w, to w, u,v AND THE 


-_—_ bt ae A a 


CYLINDRICAL VELOCITIES FROM u, v, -w, to w.u,v. 
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BODY PRESSURES DUDY PREOSUR 


(a) (b) 


FIGURE 11. CALCULATED BODY SURFACE PRESSURES COMPARING SPHERICAL- 
LY-NOSED CONES (BROKEN LINES) VERSUS SHARP-NOSED CONES 
(SOLID LINES) BOTH USING SWINT FOR TWOCASES: (a) M = 5, 
a = 2.0° B= 4.5835",9,= 10.0° AND (b) M_= 3.5, a= 5.0°, 
B = 0.0°,@= 20.0°. THE WINDWARD SIDE IS LOCATED AT THE 
TOP OF EACH RESPECTIVE PLOT. FOR CONVENIENCE, EACH 
SUCCESSIVE CURVE HAS A ZERO SHIFT OF UNITY. 
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available measured data and other numerical calculations. The computer 


programs are listed in the Appendices and input-output information is 
described. 
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NOMENCLATURE 
Speed of sound 
Pressure coefficient, (p - Baa NY om yu“ 
Specific heat at constant volume 
Total energy per unit volume, =p [e + 1/2 q*] for perfect gas 


Index of grid points in the streamwise and body to shock direction 
respectively for the axisymmentric flow over a Sphere 


Index of grid points in the circumferential and body to shock 
directions respectively on the starting plane 


Center of spherical nose 

Pressure 

Total velocity, qe = yet yet we = Uat+ Vat = v.04 Vr“+ Vy" 
Radial distance from the body axis 


Distance between a point in the shock layer and the center of the 
spherical nose 


Radius of the spherical nose 
Temperature 


Velocity components in the x,y,z direction respectively for the body 
oriented coordinates system 


Velocity components in the axial and radial direction respectively 
for an axisymmetric flowfield with its axis coincident with the wind 
axis 


Velocity components in the axial, radial and circumferencial 
direction respectively for the body-oriented coordinate system 


Cartesian coordinates for the body-oriented coordinate system with 
X-axis coincident with the body axis 


Location of starting plane measured from the nose tip along the body 
axis 
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a Angle of attack 

B Angle of yaw 

Y Specific heat ratio 

ve Circumferential angle in body and wind oriented coordinate system 
respectively 

$ Angle defined in Figure 2 

0 Density 

€ Internal energy C\T 

) Angle along the sphere 

O. Half cone angle 

~ SWINT coordinate system 

Subscript 

co Freestream condition 

a Axisymmetric flow 

Superscript 

|Past re Cartesian ase atone eran in successive transformations from 


hody oriented coordinate system to wind oriented coordiate system as 
shown in Figure 5 
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APPENDIX A 
INVISCID AXISYMMETRIC FLOWFIELD CODE 


A.l INPUT-OUTPUT PARAMETERS 


Ae 


Ce. 


Tapes 
Tape 1 is used for reading in data when continuing the calculation. 


Tape 2 is used for storing data at the end of calculation for 
restarting purposes or for computing the starting plane flowfield. 


Input cards 


Only one input card is required. The format is (2F10.0, 615) for 
the following parameters: 


XMACH = Mach number 


TM = Maximum angle over a sphere needed to be computed, 
emax, as shown in Figure 2 of the main text, in degrees. 


JMAX = Number of points in streamwise direction. 

KMAX = Number of points between the shock and the body. 

ITER = Number of time steps. 

IR] = 1 read from Tape 1; = 0 a new start 

IW2 = 1 write on Tape 2; = 0 do not write on tape 2. 

JNM = J index at the junction of sphere and cone, see Figure 2. 


Output information 


In the print-out of a run, the input data are first printed. Then 


follows the free stream condition, the normalized distance between the 
shock and the body, the theoretical stagnation pressure, the starting 
body and shock location, the arc length along the body of the mesh and 
the RMS value of shock speed at the end of the run. The flowfield is 
printed along each constant K, where, K = 1 for the body and K = Kmax 
for the shock. The printed information includes: the pressure P, the 
density p, the axial velocity U,, the radial velocity V,, the entropy S, 
the total enthalpy HT, the Mach number M, the pressure coefficient 


A-1 
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ap = —t_,, the X and Y distances from the tip of the nose and the 
l/2o U 


Internal energy EI. All parameters are divided by their free stream 
value except X and Y which are normalized by the radius of the Sphere. 
Also provided are the sonic line location, the percentage of error in 
the total enthalpy and the pressure drag. 


COMPUTER PROGRAM 


A listing of the inviscid version of the computer program NOSTIP is 
given below. For viscous flow calculations or the detailed description 
of the program, please read Reference A-1. The detailed printout 
of the flowfield for the examples tabulated in Table 1 of the main 
text follow the listing of the computer program. 


Hsieh, T., Calculation of Flowfield about Indented Nosetips, NSWC TR 


82-286, 23 Aug 1982. 
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NOSTIP CODE LISTING 


PROGRAM NOSTIPCINPUTs OUTPUT» TAPES #INPUTe TAPEOS OUTPUT » TAPELZTAPE2s 
LTAPE7s TAPES) 

COMMON/COML/JMAXsKMAXs SMa KM XMACHs GAM» GAMMLeCNs OTe SMUsICSo PRT» 
1 LPRT pHs OMEGAs IT eo TAUSI TERS ENTo PTORTo PINE os RINFs QINFoCINE a PT ol TS» 
2 IRL» IW2rLAFBOs 1GEOMs> TMs IVISs IT TRANS CF oCCo JNMsREYoPRO,CVIS»CVIS]» 
3 TWAsITWAPLIPs KRESS» SMUIMPSHT INF og ETINFo SINFoELINF 9 REYINe SUMO 30)» 
1 €T¢30),TH(30) - a ; 

COMMIN/COM2Z/X(30925) 9 VC 30025) »XEX( 3092592) 9 XEV (3092592) 90130925) 

COMMON/COM3/0( 3022594) 9S(30925 94) 2 ABI 302 49%) sHVEC (3084), 

LEF (3024) 2604) 

INITIALIZE FLOWFIELD 

Call INITIA 

DETERMINE STEP SIZE 

CALL EIGEN 

COMPUTE RESIOUE INFORMATION AT START OF EXECUTION 

CALL RHS 

CALL RESIDOYV 

INTEGRATE EQUATIONS 

DO 1 IT#ITSsITeR 

LTeIlTel 

CALL SHOCK 

CALL BNORY 

Call INTEGR 

CALL JACOS 

CONTINUE 

PRINT CUT SOLUTION 

CaLlL GUTPUT(L) - 

STaP 

cND 

SUBRIUTINE AdCX(K) 

CUMMIN/COML/JMAXSKMAXe UMS KN a XMACHe GAMeGAMML » CNp DT sy SMUr ICS ao PRT» 
1 LPRTo He OMEGAsI Te TAUsITERpENTyPTORT oP INF eo KINFoQINF sCINF os PT a lTS, 
2 IRLe 142, LAFBOsIGEOMs TMs LVIS aI TRANS CFE eo CO oe UNM eREVe PRO SCVISsCVISI» 
3 Twa lTwApL IPs KRESs SMUIMPeHTINE sc TINE sSINFSELING os REYINe SUM(30)» 
1 €1T(30)5TH(30) 

CLOAMIN/ICOM2Z/K03G225)9V E309 25) 9 XEX( 339 2592) 9 KEV (3092592) 20130925) 

COMMINICOM3/Q( 3002594) 9 SC S0n 25a Gv Ad( IO aS eG) gHVEC( 3094)» 
LEF(3094)596(4) 

CIMMON/COMG/A(302 42 43986307494) 0 C630» Se 4%) 2 HOM S02 49 4) 

LUIL30> 4s 4) 9 AX( 30) AV(30)98X(30) 987130) 

DIMENSION U630)2V¥630)9S58(30)9T(30)54(30) 

G22GA5—-2.20 

JMNM I4e-] 

COMPUTE As3eC MATRICES FOR XI SWEEP 

Gs3el.e+SMUL“PR2. 

DO Ll glo JMAX 

RAIeLefQCSaKol) 

Ud} 2O(JoKe 2) FRI 

VES) 2003 9K93) FRI 

SSUDD BGAMMLEO SFLULC IS) FBZ eV 6) 8 #2) 

TOLD AXERC Some LISUC SIP OXEV (do Ks LFV) 

MC JPAGAMBQ( Se Ky 4) FRI 

CONTINUE 

02 21 JelsJMAX 

WSSeWw(JPMSS (I) 

AB(Jsls1)#0. 

Ad Sele Z2)2XEXCSeKe1) 

Ad( dels 3) @XEVY(saKol) 

AB(CJSo1,%) 206 

ABC se Z2elLIOXEX(C I eKaLIFSS(JIMUCIIFT (SL) 

ABC Sp 2a ZdamxEX( dake LIFG24ucsd eT (J) 

ABC Se 2a BP B-XEX(SeKa LI PGAMMLEVISPEXEV( UsKe lI US) 

ABC Se 2G) BXEXCIeX eld FGAMAL 

ABC Sade LIMXEVO Joke lL I#SS(S IOVS FTC) 
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NOSTIP 
NOSTIP 
COM) 
COmM1 
COM1 
COM 
COM 
COM2 
COm3 
CON3 
NOSTIP 
NOSTIP 
NOSTIP 
NOSTIP 
NOSTIP 
NOSTIP 
NOSTIP 
NOSTIP 
NOSTIP 
NOSTIP 
NOSTIP 
NOSTIP 
NOSTIP 
NOSTIP 
NOSTIP 
NOSTIP 
NGSTIP 
NOSTIP 
NOSTIP 
ABCX 
CCM 
COM1 
COM] 
CON1 
COM1 
COM2 
COM3 
COM3 
COM 
Cu 
ABCX 
ABCX 
AgCX 
aaBcx 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ASC X 
ABCX 
ABCX 
ABCX 
A&CX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
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Ad(Je3e2)8XEX(SeKeo lI FVidPmXCV(UeKe 1) FGAMML FUL) 
ABC Ix Zn 3S) BHXEV (Jo Ke LPFG ZEVI SD e+ TES) 
ABC Je 3279) OXEV(3sKe1) *GAMM1L 

AB( Se Gel eT JIC 2.088S(sbamwl s)) 
ABC Je Se 2 dedSStXEX( Us Kea lL I—-GAMML#T (J) U0 J) 
ASC Le Se 3) eWSSPXEV( So Keo LIMGAMMLET( J) 8V¥ (J) 
ABC Jp 494) 8GAMFT( J). 

CONTINUE 

D0 2 N®194 

00 2 M#1]s% 

DO 2 J#2,JA 

3 (JsMoN} 806 

CONTINUE 

0G 15 M#ls4 

0G 15 J#20JM =) 
BlleMeM) eB See h) +BB 

DG 5 N#1s4 

OS 5 Mels4 

DO 5 J#1eJM 

AC J*#]Ll ao MeN} 2—-Ad (Saheb) FH 

CONTINUE 

IF(SMUIMPeEQ.C.0) GO TO 3 

03 6 Mels% 

D3 6 Je2eJM 
SMLSSMUIMP FOC SK) /O0(S+1 9K) 

AC Se Me MI tAC Jo Me MeSH 

CCNTINUE 

CUNTINUE 

OG 8 N®ls% 

OG 8 M2154 

OC 8 J#35JMAX 

CidJ~LoMeN) ABC Js MeN) €H 

CONTINUE 

IF(SMUIMP.EQ.0.0) GO TO 4 

O05 9 Maels4 

00 9 J#29JM 

SPLESMUIMP ED (J eK)/0(J—oL9K) 

Ci doMoM) aC lSoMe MN) —SPlL 

CONTINUE 

CONTINUE 

APPLY SYMMETRY 8.Co IMPLICITLY 

DS 10 Mely4 
B(SaeMoLIFB(2eMo ld FA(2aMe]) 

B(ZaQMo2)48(C2aMo 2) eAl 22 Me 2) 

Bl2a%e3)B(2ahMa3Z)~Al 29 M23) 

Bi ca%eS) Bl 2aMrn4) Al 2r Me 4) 

CONTINUE 

SML#SMUIMPFO(CL»KI/O0C 29K) 
Bi2oleldeBlZ2slesli—-Sal 

B(2e2e2d8B(2a292)-SM1 
B(2e3e3)88( 20383) eS Ml 

Bl29494)88029494) =SM1 

IMPOSE OUTFLOW BeCe USING LINEAR EXTRAPOLATION IMPLICITLY 
JaJjs 
SPLESMUIMPPOC Ss K I/O CJ—-lsK) 

DG 1l Nelss 

00 12 Melss 

ACS sMeNISCAlC Seo MeNIoCldeMsN) 

BC soMeN) SO SoMasNP 20 tC lle MaN) 
AC JaMsM)PACSeMoM)+SP1 

BC Joho BM) =BC Jo Meh) —-2.8SP)] 

CONTINUE 

RETURN 

END 
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ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABC X 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
aABCx 
ABCX 
ABCX 
ABCX 
ABCX 
AGCxX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABTX 
ABCX 
ABCX 
ABCK 
ABCX 
ABCX 
ASCX 
aAsgCX 


ABCX 


ABC X 
ABCX 
ABCX 
ABCX 
agcxX 
ABC X 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABCX 
ABC X 
ABCX 
ABCX 
ABC X 
ABCX 
ABCX 
ABCX 
ABCX 
AS8Ccx 
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SUBROUTINE ABCY(J) ABCY 
COMMIN/COML/JMAXsKMAXs IMs KMp XMACHD GAM SGAMMIL 9 CNo OTs SMU SC Se PRT® COM1 
1 IPRT pHp OMEGAn LT 9 TAUSITERDENTs PTORTaPINFo RINFs QINF CINE sPT alt Se col 
2 LRlp lW2e LAF BD» IGEGMe TMx TVIS es LTRANSCF oCC or INMeREVs PROOCVISsCVISI» Coml 
3 TwAs ITWAsLIP» KRES» SMUIMP SHT INES ET INF s SINFo ELINFoREVINe SUM(30)> cComMl 
1 ETC30)9THC30) Comal 
COMMON/COM2/X630 925) 91130925) eKEX(30, 2592) XEV( 3092592) 20030925) Com2 
COMMON/COM3/Q030,259 4) 9S6 3022594) 7 AB (30> Se SD rHVEC( 30s)» CoM3 
LEF(3024)52G6(4) ° COM3 
COMMON/COMS/ A 309494)9B8(309494) 90 (303 494) HDI 300 S94)» COMMS 
1UD (309494) 9 AX(30) 2 AY(30)9BX030)28Y(30) COMN*% 
DIMENSION UC30)9V630) 955030) 9TI 30) 0130) ABCY 
622GAN—-2.0 ABCY 
KAM sKM=—] ABCY 
COMPUTE AsBoC MATRICES FOR ETA SWEEP ABCY 
BBRzlLe+SMUIMP#2. ABCY 
OG 1 KuleKMAX ABCY 
RIape/O(JS2Ks1) ABCY 
UCK) #OC leks 2) ¥RI ABCY 
VOK)2G(JeKe3) ¢eR1 ABCY 
SS(K) HGAMML EO. SPC UCK) SEZ OVIK) €F2) ABCY 
TOK DP EXEX( Ue Ke Z)FUCKPEXEV (So Ke 2) FV (KK) ABCY 
ACK DP SGAMEGC( Se K eS) FRI ABCY 
CONTINUE ABCY 
O00 21 KtlsKMAX ABCY 
wSSaw(K)—-SSCK) ABCY 
Ad(Kselsl) #0. ABCY 
ABC Keele Z)8XEX(SoKe2) ABCY 
AB (Ky yl» SdBXEV( Ja K a2) ABCY 
Afb(Ksels4) 20-4 ABCY 
AB( Kolo ldMXEX( Seka 2) FSS(K MUCK) FT OK) ABCY 
AB( Ke 2a 2) B—KEX (da Ke 2) *G2FU(KI+T(K) ABCY 
AB (Ko 29 3) BmKEX (Do X eo 2) 8GANMLEVIKIEXEV( Jy Ky 2) FUCK) ABCY 
ABCK a 20 G)BXEXC Se Ky 2) FGAMM] ABCY 
AD( Ke Fe LISXEVC La Ke 22 ¥SSCKIAVIK) FTCK) ABCY 
AXCKe Bp 2) BXEX( Ie Ke 2) 8VEKIMXEY( Uo Ks 2) GAMML FUCK) ABCY 
ABCK a Bo 3d Bae XEV (So K eZ) *G28V( KD OT OK) ABCY 
AS(Ke 394) OXEV OC Se Ks 2) *GAMML ABCY 
ABCKe SeldIsT(KI FC 2eD#SS(KIMW(K)) ABCY 
ABC Kp SoZ) ewSSEXEXC I eK eo 2) ~GAMMLOETIKD FUCK) ABCY 
AB( Ke Gp 3d eWwSSHXEV (Sah se 2IeGAMMIET (KIEV IK) ABCY 
AB(K 2424) 2GAM*T(K) ABCY 
YI2zOT/Y (39K) ASCY 
UD(Ks1l9213#0-0 ABCY 
UO(Ksl22)80-9 ABCY 
Ud{Kels3s)evI ABCY 
Ud(K pl, 4)20-0 ABCY 
UD (Ks2el)e-U(KIFV (K)FYT ABCY 
UD (Ky2e2)8V (CK) *YI ABCY 
UD (Ke2e3)8U (K)*#YI ABCY 
UD (Ks294)206 ABCY 
UD (Ks3elierVikK) #*2e7I ABCY 
UDO (Ks3s2)80. ABCY 
UD (K,3,3) 82-0FVIK) FYI ABCY 
UO (kKs304)806 A8CcY 
UD (Keel) BV(KD8(2eO*SS(KI—WIK) DYE ABCY 
UD (KeGe2) UK) SV (IK) FGAMMIFTI ABCY 
UD (Ke4e3) (WC KIMSSCKIMGAMMIEV IK) 882) #77 ABCY 
UD (Ks4n4)"V(K) GANFYI ABCY 
CONTINUE aBcYy 
DO 2 N®ls4 ABCY 
00 2 M=ls& ABCY 
OG 2 K#2,KM ABCY 
BC Ke MeN) FUDD (Kes MeN) ABCY 
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CONTINUE 

DO 10 M414 

06 10 Ke2eKM" 

O(Ke Me MI 2B (Kehoe NM) +88 

OG 5 N#®le% 

00 5 MF¥le4 

00 5 K#l1sKM8 

AC(K¢lso MeN} e—AB (Ks MeN) FH 

CONTINUE . 

IF(SmUIMP.EQ.0.0) GO TO 3 

DG 6 Mal»s& 

DU 6 K¥22KM 

SMIl®SMUIMPBeD( J eKel)/O0C IK) 

AC(Ks MoM) BAC Kea MoM) -SM1L 

CONTINUE . 

CONTINUE 

DG 8 N¥1l24% 

00 3d M=ls4 

DU 8 Ke 39 KMAX 

C(K—Lo MeN) PAB( Ke Mo N) FH 

CONTINUE 

IF¢CSMUIMP-EGe020) GO TU ¢ 

DO 9 Mals4 

DG 9 Ke25KM 

SPLESMUIMP FO (J oK)/0(JaK~]L) 

CiKa MoM) BC (Ke MoM) -SP1l 

CONTINUE 

CUuNTINUE 

Re TURN 

END 

SUBROUTINE BNDRY 
COMMON/COML/UMAXs KMAX» IMoK Ms XMACHs GANS GAMMI1 > CNs OTs SMUsrICSyPRT» 
1 LPRTsHsOMEGAr ITs TAUSITERSENTp PTORT,PINFoRINFs QINF oCINFo PT oI TS» 
2 IRLeITw2eT AFD, IGcDMeTMe IL VISsL TRAN SCF pCO oe JINMeREVo PRO CVIS»CVIS1» 
3 TwAs ITT WAsL IPs KRESS» SMUIMP SHIT INF stTINFsSINFo ct LINFs REYIN®S SUM(30)>2 
1 ET(30)5TH(30) . 

COMMIN/COM2/X( 390925) 9 V¥0309 25) e XEX( 3092592) 9 XEY (3092592) 90030925) 
COMMON/COM3/Q0L 3092594) 9 S( 3022594) vpAd( 20 roe Gd a HVEC (30, 4)» 
1EF (3024) 264) 

DIMENSION P(3053),PX1I(30) es PETACG3) 2 UC 3003) s UXT (30) ,UETAC30O), 
LVC 303) oVXI(C3Z30) ee Ve TAI3Z0)2R(39023) 

DATA Cle€20C3/—-22092202-0-0/ THIS SET OATA USED FOR 2 POINT 

ONE SIDED DERIVATIVE APPROXIMATION AT bODY BOUNDARY 
DATA C19C22C3/-3.094 0am ee O/ THIS SET DATA USED FGR 3 POINT 
ONt SIDED DERIVATIVE APPROXIMATION AT BOOY BOUNDARY 

DATA CleC2eC 3/7320 ees] eC/ 
SE REFLECTION TQ SIMULATE PLANc OF SYMMETRY AT J#2 

OG 12 Ke#elsyKMAX 

Qi lsKelb#O(ZsKo1l) 

JC loKe2)2QO(29K92) 

QCleKkKsS)2Gl2sK 54%) 

Q(lsKkKs3)28—Q(29Ks3) 

SE FIRST GROER EXPTAPOLATIGCN TO SIMULATE SUPERSONIC OUTFLOW 
JUNDARY CONDITION AT JMAX 

OG 1 N#1ls4 

06 1 K#l,KM 

QC UMAX a Ke ND 802 OF Q( SMa Ke NImQ(SMmla Kon) ) 

PPLY INVISCID BOUNDARY CONDITIUN 

ATISFY TANGENCY CONDITION USING CHARACTERISTIC EQUATION 

00 3 K*®l»s3 

DO 3 Jel» JMAX 

Ze1.O/QC SeKsl) 

ReJIoKP2QCIeoKelIFOlC Ir K) 

UC Se KIB QC Ie Ks 2)FZ 
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ABCY 
ABCY 
AaCY 
ABCY 
ABCY 
Agcy 
ABCY 
ABCY 
ABSCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
ABCY 
BNORY 
Coml 
coml 
cc™l 
COM1 
Com. 
CGM2 
COM3 
GoRm3 
ONORY 
3NDRY 
BNORY 
SNORY 
BNORY 
BNORY 
BNORY 
BNORY 
ONORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
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VOSpK)} 200 SsK 93) 42 

cleQllsK eS) #00 Je K) 
PIsKIBLEZ—“OsS#R (Se KP FLUC Se K) et2 eV (Se KD FFD) DP FGAMAL 
ONPUTE P=XI» UexXIlaVeXI»p PeETAsSUMETAs AND VoETA DERIVATIVES 
00 @ J#25JM im 

PXIC JI BCP Cele ld—P(S-1l,1)340.5 

UXT OS eCUCI+Ls LIHUCS—121)940.5 

VXIC J) 2CVESt1ls Liev J—-1s1))40.5 

PXICLI#—PxX1I (2) 

UXIC1l) #"UXI(2) 

VXICL)#VxXIC2) 

PXICIMAXD RC Z OSPR CUMAXe LIMGeOEP (IMs LIP (IMm1,1)9*0-5 
UXICSMAXD SC 3Z.OFUCIMAX,LIMNGeOPUlCIMe» LI*UCIM—1s1))40.5 
VXI CIMAXD CZ OVI SMAXD LIMHGeOFVI SNe LIFCVC IM 191) ) 8065 
DO 5 Jals JMAX 

PETAC IS) &(—3e0FP (S91) 44 eo OF PCIe 2d—P (Ie 5d) #065 

VETAC II 2 (=p OF UC Ie lL) Ge CFU es 2Z)9-U( 503998025 

VETAC US) tl 3 OVE da lie eCEViS es 2IM V6 Sy 3304005 
CONTINUE 

K=] 

O00 2 J#lsJMAX 

CaazSCRT(GAMFP (Jol) /RES21)) 
ZeLeSC/SQARTIXERC Sale 2VFeZexEVl Sole 2) #42) 

UBARPUC Ss lLIFXEXCIololdeve dolIFxeEV( Jelly) 

VGARBUCI os LIFXEX( Iolo 2) eV do lLIEXEV(Jr152) 


EEPUDAR#PXIT (UDR Jo LIFCBBSFZF(KEX(C obo LIFUXICJIOKXEY( Solo LIFVxl(dd) 


> —CHAFZECXEXC Volo ZVSCXEXC Solo LI EPKIC Sd eR Sol IFUBARFUXI( JI I+ 
> KEV So Lo ZPFCXEVC So Lo LISP XT (J deRi Jo lLIFUBARFVXI(J))) 
1 (VO Se LIV 0501)) 


PTAUZCHB/ZEPETAC SIAR (Le LISCRRSeZe( XeX (Sole 2VFUETAC JI FXEV( Sols cd 


> VETACJ) Ice 

Pl=sP(Jesl)+PTAUKO 1 F0.2 

IF (P1LE.G.0) GO TO 9 

CONTINUE 

IF (JeGTe2) GO TO il 

Ae(P (491 )—2565%P(391)/920416-08PT/9.0)/62-25 
Be (P32, LI—-PT 27 eOFAs GeO) F4e0/920 
PlsPT+A/8.0+B/4e0 

CONTINUE 

RlLe({PL/JENT)**(1.0/G4M) 
QlaSaeT(Z2eOFGAM/GAMMLFEASS(PTORT=-Pi/Rr1)) 
IF (ABS CXEV(J9ls2))-0.000001) 626s? 
THETS821.570796327 

GO TO 8 
THETBBATAN(@XEX( doles 2)/XE VC Jels2)) 
CUNTINUE 

ULsZQlFeCOS(THETS) 

VIl=QLESIN(THETS) 
THETBOSIOCO-THETS*#57.29578 

O1#1.0/0( 451) 

aC dels lLIFR1FOI 

Q(dJelaZ2) 2#R1LFULFOl 

QCdelso3ZeRLFVIe0!1 

Qt deleSde(Pl/GAMM140,5FR1 401 #42) 407 
CONTINUE 

RETURN 

AKITE(6:100) LTsJdsP)i 

PlL#aSS(P1) 

69 TO 10 

FORMAT(® TITERS tp IGe 3Xo8JeSelZ2e3Xr Pl a*,EF12.4) 
ENO 

SUBROUTINE BIRIXCISs JEsK) 
COMMIN/COML/IJMAXS KMAXs UM a KMe XMACHs GAM» GAMM] pCNo DT ep SMUs ICS es PRTs 


Ll IPRTs Hep OMEGAs IT» TAUrPITERs ENT» PTORTs PINFoRINFs QINFoCINF o PT ol TS» 
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BNDRY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
ONORY 
BNDRY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNODRY 
BNORY 
BNDRY 
BNORY 
BNDRY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNDRY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
SNORY 
SNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNORY 
BNDRY 
BNORY 
BNORY 
BNORY 
BTRIX 
coml 

Com. 


nm 
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2 [Rly IW22 TAFBD eo IGEOMe TMp I VIS [TRANS CE sCC os INMoREYs PROSCVISs CVISI,» 
2 TwAs LT WAsLIPs KRESs SMUIMP SHTINF SETTING sSINFoELINFs REYINs SUM(30)> 
L &€1T(30),TH(30) 


COMMIN/COMZ/X (30925) 9630025) 9 KEX(309 2502) 2 XEV (3092592) 9D 309295) 
COMMON/COM3/Q(3072594) 9 SK 3022594) v Ad( 309 Sr Gd HVEC ( 3094)» 


LEF(3024)96(4) 


COMMIN/COMS/ AC 300494) 0 BU 30249 ed 9C (302 S54) r HDI 30949 wd 


LUCC30> 40 G) 9 AXC30) 2 AYL30) 9 BX( 30) 28 4(30) 


* 


' 


REAL LLLoL2LeL22eL3lolL32eL3solLGl ob oeeslossl ee 
FORWARD @LOCK SwEEP 
00 100 J#JSeJE 
CONSTRUCT G IN 8 
IF(JeEGedS) GO TO 4 
06 3 Mels4 
00 3 N®l94 5 
Bc do MeND@CCCCCRC Ie MeN) AC Ie MeL ISB Jelslsn)) 
AC Sa Me 2) ¥BCS—Le2eN)) Aldo My SIF BC Jnl 2 39N)) 
mA Ss Mp4) *B(J—-leoeN)) 


3 CONTINUE 
@ CONTINUE 


* 


COMPUTE G INVERSE 

DECOMPGSE G INTO & AND YU 

LileL1eEQ/B(J9ls1) 

UL2Z2=B8(dJele2)*tll 

Ul399B(Jols3d Fill 

UlL4eBlJ»124)*L1l 

L212 8lJs2s1) 

L22eLe EOS (C (Bhd 9202) PemL22*U12)) 

U2aaCCCaCSe2e 3) eL218U13)) FL 22 

U24a(((80d9204) mL 218U14) FL 22 

312832351) 

L328(B( de se2))eL 318012 

L3saerecO/(( Ce Bde 393) )eL31L4UL3)7L324023)) 

U348C( (CEC S939 4) PeLSLFULS OAL 324U24)) #033 

Lay2ediJo4%s1) 

Lo2e(ACSe4aZ2) IL el eul2 

LO3u( (CBC l94p 3) PRLS LEULS IMLS 24U23) 

Lea LoES SKC CCBR (ds Sr 4) PRLS LEULS ALG 2FU2Z4) Wb 43454) 

SOLVE FOR INTERMEDIATE VECTOR & 

CONSTRUCT RHS 

LF (JeEQedS) GU TO 34% 

DG 33 M2194 

SC Se Ke MBC CCCS CS eK eo MDAC So Ms LIAS CJmls Kel) ) ~A(JS9Me2) 4S (Sol Ke2)) 
MAC dea BPeS (Jala Ke 3) IACI My Od ESC Salo Kee) ) 


33 CONTINUE 


34 


INTERMEDIATE VECTOR R 

CONTINUE 

FORWARD SUSSTITUTIUN 

Dles(deKeL)*L1l 

D22((SlSeKs2)3-L 21401) FL22 

D3e(((S(S9K%03) PmhILFOL VoL 32%02) *L33 

Doz (CCS CS eK 0G) PHLGLEDLIAWL42402) LS 3403 FL 4% 
BACKWARD SUBSTITUTION 

Sil aX0 4) 204 

S({J9Ks3)2(03)-U34*D4 

SC de Ks 2)80( 02) -UZ3FS (lo Ks 3) )-U24D4 

S (da Ke lL ISCCUDLITULZ#SCSeK 92) PULSE FSC J Ko 3) 1 ULS SDS 
CONSTRUCT U BY COLUMNS aND STORE IN B 
IF(J-EGeJE)} GO TO 100 

0G 40 Nels 

FORWARD SUBSTITUTION 

Cl=C(JseolsNd FLA 

C22((CCde2eN)) wmh21*C1LIFL 22 

C3aCC(C Oda Ban) PRLAILPCLIN“L 32*C2) 4133 


A=8 


cOM1 
COM] 
cOomMl1 
COM2 


“Com3 


C03 

COM4 

CONS 

BTRIX 
BTRIX 
BTRIX 
BTRIX 
BIRIX 
BTRIX 
BTRIX 
BTRIX 
BTRIX 
BTRIX 
BTRIX 
BTRIX 
3TRIX 
BTRIX 
BTRIX 
BTRIX 
BTRIX 
BTRIX 
STRIX 
BTRIX 
BTRIX 
BTRIX 
BYRIX 
aTRIX 
BTRIX 
BIRIX 
BTRIX 
BTRIX 
BIRIX 
BTRIX 
BTRIX 
BTRIX 
BTRIX 
BTRIX 
BTRIX 
BTRIX 
aTRIX 
sTRIX 
BTRIX 
BIRIX 
BTRIX 
BTRIX 
BTRIX 
BTRIX 
BITRIX 
BTRIX 
BTRIX 
BTRIX 
BTRIX 
BTRIX 
BTRIX 
BTRIX 
BIRIX 
BTRIX 
BYRIX 
BTRIX 


OOnNIWNWAN OU S 


C 


on 


em) 
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Coel (UCC Ode GaN) VALGLECL IML 42402) -L 43403) HL 44 

BACKWARD SUBSTITUTION 

BlJs4sN) #C4 

BiJe3eN)2(C3)-U344CS 

Bde 2aN) 80 (C2)eUZ3SFB (S939 N)I-UZSHCS 

BQ deloNd® COLCLICULZ SB (de 29N) I eULIFB (Se 30N) mULSECS 

40 CONTINUE 
100 CONTINUE 

BACKWARD BLOCK SWEEP 

JEMIBJEM=1 

00 200 JJJ#JSeJEMI 

SeJENL*US—JsdJ 

00 200 M#l»4 

Sco Ko MDECCUCS CS aKa MP BC Lo Me LFSC SFL se Ko Ld eBid a Me 2VES CU eloKs2d) 
* “BC Jae Med) FSC UFleKa3)) BUI eM aoe FSC Itlo ks 4)) 

200 CONTINUE 

RETURN 

END 

SUBRIJUTINE SBTRIVI(KSs KEs J) 

COMMON/COML/IMAXSKMAXK® GMa KMe XMACHs GAM, GAMM] >CNeDTs SMUs ICS se PRT» 
1 LPRTp Hs OMEGAy IT yp TAUSITER SENT PTORT s PINFo RINFs QINFoCINE PT oIT Ss 
ra LRlp IW2e LAFBOs I1GEIMe TMe LVISaITRAN SCF oC Co INMPREVe PROSCWISCVISI» 
3 TwAp IT WAsLIPs KRESpSMUIMPSHTINFs ETINE ps SINF se LINFoREVIN» SUM(30)>5 
1 €7(30)}»TH(30) 

COMMON/COMZ/X 030225) VE 30025) e XEXC 30> 2522) 5 KEV (3022552) 90130525) 

COMMON/COM3/ QC 3002594) pSC 20a 2574) ATL 3S0n Ge Sd gHVEC ( 3094)» 
LEF(3024)26(4) 

COMMON/COMG/A( 309494) 9 BU 300 Gr Gd oC (30s 404) sHD(30s os 4) 

LUD (309494) 2 AK( 309 AV(30)9 BX(30)e87130) 

REAL LlLloLZleLZZ2eL3l et 32eL33seL Glo local ejrl GG 

FORWARD BLOCK SwEEP 

DG 100 KeKS»sKE 

CONSTRUCT G IN @ 

IF(K.2EQ.K%S) GO TO 4 - 

DG 3 mM2ls4 

00 3 N#1l54% 

BikoMend BC CC CCRC Ke MeN) PACK, Mo LP F8( Kelso le Nd) 

* ~A(KeMe2) #B(KelLe2oN}) mA Ke Me 32 *B (Kel oa) ) 
* mA(Ky Ms S)*B(K—1l2oeN)) 

3 CONTINUE 

& CONTINUE 

COMPUTE G INVERSE 

DECOMPOSE G INTO L AND U 

L1L1#1,«EQ/a{Kalol) 

UlLZ*d(Xels2)4rll 

UlL3s3a(Ko1ls3)4L11 

ULSa3lKoleSd*t_il 

L218 B(Ks291) 

L2Z28LeEQ/( 0 (B(K9292) )-L21*U1L2)) 

U23"(C(B(Ke 203) )eL21*U13)94L22 

UZ2G2 (C080 R204) ) -L218U149))4L22 

L3L2#d(Ks3,1) 

L32(B(Ks 302) )-b31*8U12 

L3FeLeEOSCCEE BUCK, 3939) 29L 31 4U1L39—-L924023)) 

U3429( (0 (B(K 9394) PRL ILFULS OL 324024) ) FL 33 

L&1Ll*=3(K» 401} 

LG22(BCKeSe2) 3 -L4S14U12 

LOZe(C(8(Ke4e3) 2 -LG19U13) -L424U23) 

Laem LeEOS (OCC BUKs oro). mLELEULS PRLS 2 U2Z5 DML 999354) 

SOLVE FOR INTERMEDIATE VECTOR R 

CONSTRUCT RHS 

IF(KeEQeKS)} GO TO 34 

OC 33 M*®1ls4 

SOc a Ke MP OCC CUS CI eK ae MI—ACK a Me LIFS CJ eKelsld) ~A(Ke Mp2) *SCSaK~192)) 


A-9 


BIRIX 
BTRIX 
BTRIX 
BIRIX 
BIRIX 
BITRIX 
BTRIX 
BTRIX 
BTRIX 
3TRIX 
BTRIX 
BTRIX 
BTRIX 
BIRIX 
BTRIX 
BIRIX 
BITRIX 
BIRIX 
dTRIY 
COR 

COM 

COM 

Caml 

CGM1 

Com2 

COM3 

COM3 

COM4 

COMS 

BIRIY 
BIRIY 
BTRIY 
BTRIY 
BTRIY 
BIRIY 
BTRIY 
BIRIY 
BIRIY 
BIRIY 
BTRIY 
BTRIY 
BYRIY 
BTRIY 
BIRIY 
BIRTY 
BTRIY 
BIRIY 
STRIY 
BTRLY 
BIRIY 
BTRIY 
BTRIY 
BIRIY 
BTRIY 
BIRIY 
BTRIY 
BIRIY 
BTRIY 
BYRIY 
BTRIY 
BTRIY 
BIRIY 
BIRIY 
BIRIY 
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* “ACK Me 3) 8S (Cd xK—L9 3) mAC Ke M9 4) FS 6S 9 Kells 4) ) 
33 CONTINUE 
C INTERMEDIATE VECTOR R 
34 CONTINUE 
Cc FORWARO SUBSTITUTION 
OleS(JeKesl)FL11 


OZa((SCJekKsZ2) VeL21*01) 4L22 
D3*8C0(SCJoKo3) )m-L39190] 1-0 32402) "L353 
Das(CCCS Saks Gd -L41*01 £42402 )-L493403) FL 44% 
C BACKWARD SUBSTITUTION 
SC J9Ks4) 204 
S$(J0K9392(03)-U344D04 
S(JeXe 2d aC CD22-U2Z34FS C39 Ke 3) HU24404 
Sd oKao ld aC (COL PeULZFS (IK 2) UL SES CS Ke 3) UL 4904 
C CUNSTRUCT U BY COLUMNS aND STQRE IN 38 
[IF(Ke-EQ-KE) GQ TO 160 
DO 40 Nwel,4 
C FORWARD SUBSTITUTICN 
ClsC(KsloNDFL11 
C2e((C(Ke2eN)) “£6214C1)*L22 
CACC OKs ZoN) DeLILECLI—-L352*C2) "133 
Ctl CCC (Ka Send MLoleClL mL o2eCZ2)-L Gala) ¥L 4% 
c BACKWARD SUBSTITUTIBN 
B(K»4eN)8C4 
B(Ks3eN)2(C3)-U34SCS 
BC Ka 2sN)s((C2)-UZ3FB (Ke 3ZaN} ID HUZSECS 
BiKeloN)® CCCCLIAULZEB (Ke 29N) DeULS RSI Ke 39 N) J MULS*CS 
40 CGNTINUE 
CC CINTINUE 
C BACKwARD BLUCK SWEEP 
KeMlekeo} 
09 200 KKKsKS»KEML 
K®KEML@KS—KKK 
D9 200 M=1s4 


S(JoK eM BCC CIS CI a Ko MIMKBUKo Me LIFS( Soke lol) Dea UK eo My 2045 CS yp Kole 2)) 


$ “3(KamMe ZV *SCSoKe lo 3d) ~3CK eM GS) FSC Se Kol 4)) 
200 CONTINUE 

RcTURN 

END 

SUBRIUTINe DISSIP 


COMMIN/COML/IMAX eo KMAXs SMa K Me XMACHS GAM» GAMHL ao CN es DT yp SMUs ICS a PRT» 
Ll IPRTsHs OMEGAr ITs TAUsITERs ENT s PTORTs PINE SRINFa SINFsCINF eo PT o ITS» 
2 IRlsIWw2, IAFSDeIGECOMs TMs IVISesITRANe CF sCC ao SNMePR=EYoPROSCVISeCVISls 
3 TwAslTwWAsL IPs KRESoSMUIMPoHTINFSETINF »SINFsELINFs REYINes SUM(30}) 5 


2 ET(30),TH(30) 


COMMON/COM2Z/X( 30925) 9 VK 30025) XEX( 3092592) 9 KXEV( 3092552) 20030225) 


COMMIN/CON3/26 35092594) 9 S(0 3022594) FASC 30 rer So) pHVEC( 3034) » 
LEF (3004)5604) 
CeocoeSMICTH IN THE X AND Y DIRECTIONS AND ADD SMOOTHING TERM TO S 


Coon DATA CLS PC2S eC 3S eC GS lm2eOe beOemGHednlLeO/FIR LINEAR EXTRAP AT SHOCK 
Coee DATA CLS sC28 CBS eCGSlm1leOeZeQemseOv Le OC/FUR PARAS EXTRAP AT SHOCK 
Cece DATA C1B82C28eC38sC48/—2 e009 5c Oe Ge Os leO/ FUR LINEAR EXTRAP AT BOOY 
Cooe DATA CLBsC2BsC3BsCeBlm~LeOaseOemaeOeLeOs/FOR PARAB CXTRAP AT BODY 
Cece DATA ClLOeC2GeC 30s CoOL eOsseOemZeOel o. O/FUR PARAS EXTRAP AT OUTFLO- 
Coco DATA CLOsC20sC3IsC4O/—2 05 eOeemGeoDeLoQ/FOR LINEAR EXTRAP AT QUTFLO 


DaTA C18, C28 9C38 9 C48 fm-1009 30003200 l OS 

OATA ClacCZ28sC 38s Coadl/mLeOe Ze OeeZ0091le Of 

DATA ClLOsC20eC30sC4Gl—-2.0 95 eOs mee Oslo O/ 

KMAMeK Mj) 

JNM ® JM] 

00 & Nelsé 

00 2 Ks25KM™ 
CoeeUSE LINEAR OR PARABOLIC EXTRAPOLATION FOR J*JM 
CeeeStE DATA STATEMENTS ABOVE 


ARRAY 


BTRIY 
BTRIY 
BTRIY 
BTRIY 
BIRIY 
BIRIY 
BIRIY 
BIRIY 
BIRIY 
BTRIY 
BTRIY 
BIRIY 
BTRIY 
BIRIY 


, BTRIY 


BTRIY 
BIRIY 
STRIY 
BIRIY 
BIRIY 
BTRIY 
dTRIY 
BTRIY 
BIRIY 
dTRIY 
BTRIY 
BTRIY 
STRIY 
BTRIY 
BIRIY 
BIRIY 
BTrRIyY 
BTRIY 
BTRIY 
BIRIY 
3TRIY 
BTRIyY 
BTRIY 
dTRIY 
OLSSIP 
COM 
COM1 
CoM. 
COGM1 
CoM1 
COM2 
C03 
CoM3 
OISSIP 
DISSIP 
DISSIP 
DISSITP 
DISSIP 
DiSsie 
OISstPp 
OISSIP 
OISS1e 
OLSSIP 
OISSIP 
OISsip 
OISSIP 
DISSIP 
DISSIP 
OISSIP 
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SI IMe Ko ND ASCSM SK oN I—SMUFOCL2Z5S#(CLOF IC UMAX eS K9N) FOC SMAX SK) O 
> C2OFICUMe KeNP POC IMs KI tCZOFQCIMMa Ko NI FOL IMM K)+ 
> CEOFQC IM=2a Ka NIFOC SM—29KII/DOC IM K) 
DO 2 Je3eJMmM 
2 SCS KIONDES Ca KaNI—SMUFO L258 (QC S20 Ke N) FD ( I-29 K 1942.0 O( Jol sKoN) 


> FDC S~L aK) Oe OFFIC Ia Ka NFDC Se KMS eOFQC IL oe Ka NIFO(C Ut le KI FI(S+25KoN) 


> *OCJ+20K) 9/00 30K) 
CeeeSMQOTHING IN ETA DIRECTION ; 
CeoeeUSE LINEAR GR PARABOLIC EXTRAPOLATION at BOOY AND SHOCK 
CeeeSEE DATA STATEMENTS ABOVE 
D0 12 J#2sJ5M 
SOSe2oNBSC Sr 2onNdoSMUtOelLZ5F(CLB*Q( Ir loNIFOl Jel) 
> C2BFIW Trp ZonIFOC Ss 2VHCZBFQ( Uo FoNIFD( Sr 3)+ 
> CHBEOC Se Ge NIFDC S94) 3 /00502) 
12 CONTINUE 
00 13 J#25JM 
SCSeKMe NBS Io KMoNI—KSMUSOLLZ58( CLS #20 Jo KMAXeND FDL Sp KMAX D4 
> C2S#FQC So KMPN) FOC Se KMD HCSSFQ( Sy KMMON) FOC Se KM) 
> CESFIC TS KMM—2,NP FOC Se K M200 /00 59 KM) 
13 CONTINUE 
00 10 J#2s5JUM 
OJ 10 K#39KMM 
SUL eK eN PBSC se KaoNPHSMUFO SL Z5€L QC Ie Ka2eND EDC Sr K=-2)—4 e082 Se KelyN) 


> BOC Je Kel) +O,.OFS( Se Ko ND FDC Io KIKSe OB QL Us Ke lyoNI FOC Sp Ke LIAS rsKe29Nn) 


> FOC SK 2) /00 59K) 
10 CONTINYE 
& CONTINUE 
Cee e COMPUTE SMOOTHING FUR J#2 BY USING SYMMETRY CONDITIONS 
00 3 K=2y9KA 
SCZ asKelLIBSC2eKelIHSMUFOeLZ58( HG eK ICL eKeLIFD(l»K)+6-080(22Ke1)*% 
> OCVSeK dH Z.VF GC Se Ko LIF Ze K + QlGyKe LIF#OC Ss KI /D( 29K) 
SOS Ke 2daS 2p K eZ ImeSMUFOH ee LZ5EF (HS OF Ql Lok es 2) 4D (lek) *6e.0F2( 29K 2)” 
> DSK d—Z.OF OC 3s Ke 2dVFOC Ie KI FQ Se Ke 2) #0 ( 49K} )/D( 29K) 
SE2aK a ZV BSC Sa Ke ZIMSMUFO LAS (mG eOFQ(LoeKaZdFOC lL oe KI) +6. O8Q(29Ke3)8 
> OC SeK HS eOFQ( Ze Ke ZPFOC Ia KIO Se Ks 3) 8004s KI /0( 25K) 
SE2SaKkK eG) BSC SaK eG VoSMUFOe LAS R( HF .OFQ(] Ky G4) FO(]L eK) +6.0F0( 29K 54)? 
> VESeKIHZeOFQ( Zp Ky GPFD (Ze KI FQ aa K er Ged (oeKII0 029K) 
3 CONTINUE 
Re TURN 
tND 
SUBROUTINE EFCONC Se Ko) 
COMMIN/COML/SIMAX SD KMAXs JIMa KM a XMACH a GAM GAMML ep CNep DT, SMUsICS ao PRT» 
1 I[PRT» Hs OMcGAs ITs TAUs,ITERS ENT, PTIORT»PINFs RINFe,OQINFo CINE a PT eo ITS» 
2 IRsIW2s TAFBOSIGEOMs TMs IVISs IT TRANs CF pCO ep INN pREVeaPROSCVISeCVISI1l» 
3 TwAslTwAsLIPsKRES»SMUIMPeHTINF x ETINE s SINFsELINFs REVIN» SUM(30) 2 
1 €7(30),TH( 30) 
COMMON/COMZ/X (305025) VY 630925) 9 XEX( 3022592) 9 KXEY(3092592)9D06 30925) 
CUMMINICOMZ/Q( 30225 9G) aSl FOr 25 no) raAdl 3062404) pHVEC (3024) 
LEFC3004)96(4) 
DATA RVEC/120%0.6/ 
Cow e FIRM E CONSERVATIVE VARIABLES (I#1) OR F CONSERVATIVE VARIABLES 
CooeolI2=2) AT A GIVEN NODE PCINT 
we=Q(J3eKso1) 
RIel.0/ 
UsQ(seKe2)4RI 
V=Q(JrKo 3) #RI 
POJ#GAMM1LF(Q( J 9K 2G mWEO SH (USUSVEY) ) 
XxXeQ. 
YYSXEX(SeKol) 
ZEeXEY( le Ko TI) 
CAPUVEXX*4YYsuUeZey 
GOl)sweCaPuy 
G2) 800 SeKe 2) FCAPUVTYYSPOJ 
G(Z)tOC I oKe 3) FCAPUVOZEPOSJ 


DISSIP 
OISSIP 
DISSIP 
OISSIP 
OISSIP 
OTs oP 
DISSIP 
DOISSIP 
OISSIP 
DISSIP 
DISSIP 
DISSIP 
DISSIP 
OISSIP 
OISSIP 
DISSIP 
DOISSTIP 
DISSTP 
OISSIP 
OTSsiP 
OISSIP 
DISSIP 
OISSIP 
DISSIP 
OISSTIP 
DISSIP 
OISSIP 
DISSIP 
DISSIP 
OISSIP 
DISSTIP 
OISSIP 
DISSIP 
DISSIP 
OISSIP 
OISSIP 
OISSTP 
DISSIP 
OTSSiP 
OISSIP 
EFCON 
COM1 
CoM 
CON1 
COM} 
CO4i 
CumMe2 
CQM3 
COM3 
EFCON 
EFCON 
cFCON 
EFCON 
EFCON 
&FCON 
EFCON 
EFCON 
EFCON 
EFCON 
EFCON 
EFCON 
EFCON 
€FCON 
EFCON 


Coeed 


GCuneG 


ay 


bo ond 


100 
101 
102 


103 FORMAT(®ONEGATIVE SQRT IN EIGEN AT Jt#eIl2Ze% Kate l2e3XoFE/Jer E1004 
> pEXoPLIReFpElLOo Sa sXvFUseegElLOe Ga 3Xo PV EFac le Go 3KetOISCRASSe ELI. 4) 
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SEG) BOC Ia Ke GS) ECAaPUVe(CAPUVHXX)8POJ 

JUKCE TERM IN ETA=MOMe EQN. FOR AXISYMMETRIC FLOW 

IFy lS eEQeOeORe Lec Qe LP RETURN 

YIeDT/Y¢J9K) 

HVEC(KelieollsKks 3) YI 

HVEC(Ke 2) 8#O(JoKs 3) 4 YI FU 

HVEC (Ke 30 2OC Se Ke 3) FYI *V 

HVEC (Ks a) 2 (OCl aXe) ePOJ) VFI 

RETURN ; 

End 

“SUBROUTINE EIGEN 
COMMON/COML/UMAXs KMAXs JM KMe XHACHS GAMSGAMMIL eo CNe DT se SMUsICS a PRT» 
1 IPRTsHs OMEGA IT e TAUsSITERSENTs PTGRTs PINFoRINFs QINFo CINE o PT a LTS» 
2 IRLo TW29TAFBDeIGEDMsT Mp IVIS, ITRANS CFs CCo UNMPREYo> PROSCVISsCVISI» 
3 TwApITHWA,L IPs KRESs SMUIMP sHTINE pETINF os SINFO ELINFoREYING SUM( 30)» 
1 €17630)sTH(30) 

COMMON/COMZ/X( 30925) 9163092539 XEX(3059 2592) 9 XEV (3022522) 2D(30925) 
COMMON/CGOM3/Q( 3052594) 9S(3Ca 2504) 2 AB( 3094S) re HVEC( 3094)» 
LEF(3024)26(4) 
JMPUTE STEPSIZE GIVEN COURANT NUMBER 

IFC IPRT.GTeO) WRITE (69100) 

SIGMAX2#0-90 

SIGMIN#®102E4+100 

OO 1 KelsKMAaXx 

OG 1 JalsJMAX 

RI a1 .O0/Q(JaKol) 

UeC(seKse2) ¥RI 

VzQCSaKa 3) RI 

KXKEGAMFGAMALE( OCU Ke SI) FRI MOS EC USUS eV) ) 

IF CXX) 29293 

WRITE(6 2103) SoKsQ(JeKoG@) oRIi vo Un Vo XX 

XXeexx 

SPSNO#SORT( XX). 

KIX#XEX( Sokol) 

XLY*xeEY(JeKol) 

ETAXBEXEXC Ja K a2) 

ZTAY aXe Y(J9Ke2) 

XceT20. 

SIGASABSOXETOUSXIXEVEXLY) +SPSND®SQRTC XIX 2 eXT VF 2) 
SIGBSABSCXETCUFETAX+VPETAYI*SPSNOFSORT(ETAXS HZ TE TAYR%2) 
SIGAS®AMAXLISIGAsSIGB) 

SIGASM*AMINICSIGAsSIGB) 

IFCSIGAB-GTe«SIGMAXIGOTOS 

GUTU5 

SIGMAX#5IGAB 

JEIGMXaJ 

KEIGMX#K 

CONTINUE 

IF(SIGASM LTeSIGMINIGOTOS 

GOTO? 

SIGMINSSIGABM 

JEIGMNeSJ 

Ko IGMNSK 

CONTINUE 

CONTINUE 

DT#CN/ABS(SIGMAX) 

Hs0.5#0T 

FORMAT (#089 3X5 FSS or GX or FK Bs TX BSI GAS, AK FSI1GRF) 
FORMAT(21592F12-6) 

FORMAT( #04, SSIGMAXB RD ELO ce Sp IX vr Plato loa arXe FKEee TS r 3XeSSIGMINGG, 
DELL o Gp Bo BSae LS eB op PK OH er 155 IX eFCNoSrELOe Se Ike FDOT ets FLO 0%) 


RETURN 


A-12 


EFCON 
EFCON 
EFCON 
EFCON 
EFCON 
EFCON 
EFCON 
EFCON 
EFCON 
EFCON 
EIGEN 
COM1] 

COMl 

COM] 

COM1 

cCOAMl 

Come 

COM3 

CON3 

EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
cIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIStN 
EIGEN 
EIGEN 
ELGEN 
EIGEN 
EIGEN 
Cc IGEN 
EIGEN 
EIGEN 
ELGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
cCIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 
EIGEN 


1 


30 


10 
2 
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ENO 

SUBROUTINE ETATBCETs CF oe KMAX) 

DIMENSION JILC3)o DIE CRD oe MXTC3) 9 KXF C3) eDOXL(3) 2 DDXF (3) 2ET(40) 
DATA FIL CL) o SOLC 2) oe ToL CBD oe STECL Ee STFC 2) SAFC BDL Ls S501 Ts oan 8s 
SATA XXICLPOXXLC Zo XXT (ZV /0e x0 LL5 90079 

DaTA XXECLIOXXEC[) oe XXF (3) SOL 900 75a lel 

DATA DOXICL) »DOX162) yDDXI(3) 1060019060151 0605/ 
DATA ODXF (1) 9 DDXE C2) 9DDXF (3) 106015902032 0-08/ 
IFCCFLTe1.0) GO TO 30 

KM1 = KMAX=1 

RAT = (CF¢].-)/(CFHl.) 

OcTac ® 1./KM1 

ET{1) = Qe 

ETCKMAX) = le 

96 1 K # 2eKM1I 

ETAC = (KelLIeDe TAC 

cx # LemETAC 

ARG = RAT#¥*EX 

ET(K) = le + CESCLMARGI/ C1. +ARG) 

RETURN 

CONTINUE 

00 2 I[#ls3 

JITeJJICT) 

JFeJJF(I) 

XLaxxIldl) 

XFaexxe(l) 

QXT=OOXI(T) 

OxFeDOXF(L) 


XFXTaxXFaXl 
Hale/(sFosl) 
H2eH*H 
H3*H2*H 


Ce( DXF FOX I-20 FHEXFXID/ (H—-3 0 FH2426*H3) 

Be (OXIl=HexFxT=C¥(n3-H) )/ (HZ) 

AztXFXI]+B=C 

09 10 LeJIoJF 

Xa(L~-J1)*H 

ETCLI MXIT exe (aexe (orl #x)) 

CONTIAUE 

CONTINUE 

ReoTURN 

EthD 

SUBRGUTINE GRID 

CUMMON/COML/IMAKSKMAKe SMe KMs KMACHs GAMSGANMLOCN® OTs SMULICSs PRTe 
l [PRT pHy OME GAs [Tp TAUr LTERSENT oO PTORTo PINE oRINFs OINF CINE oPT elo» 
2 [Rle [m2 LAFSOrIGEQMs TMs I VIS yITRANS CF eCCy INNPREVSPROSCVISSCVISTs 
3 Tu bp LTWApLIPs KRESe SMULMP DHTING DETINE pSINFS ELI WF se REVINe SUM( 30) 
1 ¢7(30)»TH(30) 

COMM INSCOMZ1X(30 925) VL30225) 9 XEX( 3092592) KEV (3022592) 00030925) 
COMMIN/COM3/2( 3002594) 9563022594) 2 ATL 300 Se 4d oHVEC (309 4)» 
LEF(3094)2G6(4) 

COMMON/ BDTH/ OL» XO2 9 XO39XC4e VOLs VIZ, VOI + VOSeSkLLsSh2sSL3sRl Rey 
LRAPRG CTL ye ClSrCT3sCTarCT5rCT bs X00, R800Y : , 

THIS SUBROUTINE DETERMINES X AND Y FOR GRIO POINTS 
PlZ2e2.¥ATAN(le) 

PlsZ2.*P12 

DTR=PI/180. 

THe(VOermTM) FOTR 

JNMLSJNM=-1 

TH( JNM) =TM 

JNMPS INNS) 

TMMSPIZ2-TM 

FOR SPHERE PORTION 

OTHMINS IM/CFELGATCINMII-0.5) 


EIGEN 
ETATB 
ETaATs 
ETAaTs 
ETATS 
ETaTB 
ETATB 
ETATB 
ETaTB 
ETATS 
ETATS 
ETATS 
ETATS 
ETATB 
ETATS 
ETATB 
ETATB 
ETata 
cTATS 
cTATs 
ETATB 
ETATS 
eTATB 
ETATB 
ETATS 
ETATS 
ETATS 
ETATS 
ETATB 
ETATB 
ETATB 
ETATB 
ETATB 
ETATS 
ETATS 
ETATB 
ETATS 
ETATSB 
ETATS 
ETATS 
ETATS 
ETATS 
GRID 
CoM} 
Coml 
coml 
CoM1 
CoM. 
Co¥2 
c¢oM3 
Ca™3 
GRID 
GRIO 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 


Oanweou fs wh Pe 


ae 


38 


36 


124 
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DTH1=s0.5*DTHMIN 

DO 5) J#lsJNal 

THC J) =(J-1)*0THMIN=-DTHI 

00 58 J#l»yJNM 

X(Jeliel-COS(TH(J)) 

VYidolIeSINGTH(J)) 

CUNTINUE : 
OTHMINS TH( JNM THC SNM] ) 

00 56 JaJNMPe UMAX- 

THO J) 8 THE J-1) 
XCJslISDTHMINeCOS( TMM) xl Jelsl) 

YC Jo LPSOTHMING SINC TAM) +¥(J—-191) 
STREAMWISE COORDINATE STRETCHING ON CONE PORTION FOR J GT. JNM 
OTHMIN#@CC SOTHMIN 

CONTINUE 

SHOCK LOCATION 

XM2SXMACHR*EZ 

AKe ((GAM41.)EXM2)/(GAMM1L*EXKN242,) 
AABO.O1L/(XMACH **0.11) 

OLTG*0-.52/¢ (AK~1.) "40.6561 ) 

YArcot (Le S270(AKEHEQ 2) 4C eI 23/ CXMZ2—1-)) FGAMMI1*E*#0.14 
DC 7 Je2nJMAX 

IF(TH(J).€9-P12) GO TO 71 

TCB2TAN( TH(J)) 

DYS20.]1 

YSS2#Y¥(Js1) 

OC 72 Nalss6 

0G 73 M=*1ls100 

YoserysS*O0vS$ 

Yo t@Ge SFC OLTUPX( dole (YSS-VideldI/Toa) 
ECS etT nO.) GO TD 731 

YY*YA*YOS**aa 

TIFCYSS“YY) 7397325731 

CONTINUE ; 

YSS$#YSS-O0YS 

DYS#0.1#*0YS 

CONTINUE 

YOSeXMAX)BYSS 

RU SaKMAX) SX (Seo LIM CVC So KMAXIMRV (Jel) )/TCA 
GO TD 7 

XOSoMMAX)21.-0LTO 

YOIsKMAXI SYAP(OLTO*X(Jn1) ) F8AA 

CONTINUE 

XOLsoKMAX)DOX( 22 KMAX) 
VC1lsKMAX) BYU 2sKMAX) 

WRITE(69701) 

FUORMAT(/s*OSTARTING BOOY AND 30W SHICK LOCATIONS *s/) 
we IlTe(6,125) 

PORMATCLISXs XB Ro loX ea FYB Se LEX es FXSSe LAX a FVS Es lOXs FTHETASr 1L4Xy HSH) 
DO 9 J8lsJMAX 

K(JSoldeX( Jol) * OMEGA 

Y(sel) 8Y¢(Se1)#0OMEGA 

XC JaKMAXPBX( I eK MAXI PFQOMEGA 

YO S aK MAX DOV (Ja K MAX) POMEGA 

VRITE(G9129) XC dole VC Sold ox do KMAX) o Vi Se KMAX) »TH( dS) od 
FORMAT(5F20.-6,15)} 

CONTINUE 

FILL ETA COCROINATE STRETCHING ARRAY 
CALL ETATBCET SCF yKMAX) 

DETERMINE X ANO Y FOR GRID POINTS BETWEEN BODY AND SHOCK 
00 5 Jel»eJMAX 

OXXeX( Se KMAX)D—XC 501) 
OVYVYaV¥( Jes KMAXI—Y6J3e1) 

00 5 KelsKMAX 


A-14 


GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRIO 
GRID 
GRIO 
GRID 
GRID 
GRID 
GRIO 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRIO 
GRIO 
GRIO 
GKIDO 
GRID 
GRID 
GRID 
GRID 
oOkID 
GRID 
GRID 
GRID 
GRID 
GRID 
GRIO 
GRID 
GRID 
GRID 
GRID 
GRID 
GRID 
GkIO 
GRID 
GRID 
GRID 
GRIO 
GRID 
GRIO 


101 
102 


307 


103 FORMAT(#O8s 2X9 tMACH NUMGER #59 F5e25/,3X,*RATIO OF SPECIFIC HEAT =# 
z= €pF LO ool» 


266 


109 


100 
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XC de KX Je LIFOXXFETK) 

YoseKPsVC Se lI+OVY*ET(K)} 

CONTINUE 

RETURN 

END 

SUBROUTINE INITIA 

COMMON/COML/IMAX a KMAXs JM e KMs XMACHs GAM GAMM1LSCNe DT» SMUsICSy PRT» 
1 IPRT»He OMEGAd ITs FAUSITERSENTs PTORTsPINFoRINF Ss QINF os CINE so PTs ITS» 
2 LRleoIbw2elLAFBD,IGEOMs TMs TVIS so LTRANSCE oCCo SNMeREVo PROSCVISsCVISI>» 
3 TwAsITWAsLIPs KRESs SMUIMPsHTINF x ETING eo SINFoEIINF eo REVYIN® SUM( 30)» 
1 ET(30)5TH(30) 

COMMON/COM2Z/X( 30925) 2 V(30 925) 2 XEX( 3092592) 9 XEV (3082592) 90130225) 
COMMON/COM3/Q030 92594) 9S( 302257 4%) pAdl 300404) sHVEC (3044) >» 
LEF(3024)9604) 
COMMIN/COMG/Al 30 5 49 4) 9B630 0404) pC (302 424) xHD( 303494) » 
LUD( 300 Grp S) ep AXC FOV SAY (30) 9 8X( 30) 937130) 

DATA AX/3G#0.O/sBX/3F0FL Of x AVS/3080 00s BY/30F1.0/ 

DATA IPRT/SO/o LAFBD/O/ 9 IGEOM/O/ a LIP/SO/ oa KRES/3ZO/ 9 ITRAN/S/ 9 IVIS/ OS» 
LGAM/1L eG / 9 OMEGASL OS oO CN/LeS/eCO/L Osa SMUS0 0 S/o SMUIMNP/O of 

DATA JMAX/Z28/aIRIT/Os oI w2/0/,CF/LOQ000e / 

THIS SUBROUTINE INITIALIZES THE FLOWFIcLD 

PleS.#ATAN(1],.) 

@RITE (6,101) 

FORMAT(*®1#) 

WRITE (69102) 

FCRMAT(/9/9% AXISYMMETRIC FLOWFIELD OVER SPHERC#e/ yf) 
READ(52507) XKMACH, TMe JMAXSKMAXSINMSITERs TR late 
FORMAT(2F10-02615) 

JPeJMAX=1 
KMBEKMAX—=] 
WRITE( 62103) XMACHSGAMs TMs CF eo IRs I W2 
oF Sela fa aXe THETA MAXe IN DEGREE & *9F7e30/93Xy* CF 
3 3Xe* [RL 8 Fel2e/e3Xe* IWe *,12s/) 

TM890em Ta 

WRITE (62208) SMAXeKMAXSINMS ITER 

FORMATO ROS» 2X yp PIMAXEMr [Sr Sa Xo PKMAX EH oT Se So Xe PINMEH e154 5K, 


L FC JUNCTURE OF SPHERE AND CONE), /,3X, FITTER tol Ge S5XeH( TIME STEPS 


2FOR THIS KUN)*) 

DAMM] =GAM=] 

GAM1LI*#1.O0/GAMM1 

ITF#) 

TAU#O, 

ITO 

ITS*1 

FACTT#0-~- 

FACTA2=0. 

FACTS#C. 

JCS21 

PINFel, 

RINF#l], 

CINFeSQRTCPINE ®GAM/RINF) 
QINF®XMACHFC INE 

StT UP CONSTANTS AT FREE STREAM 
WRITE (62109) 

FORMATC#0%,*FREE STREAM CONDITIONS *®) 
UINFSOQINF 

VINF#O. 
HTINFeGAM/GAMMLEPINE/RINF 40. 5*GINFSH2 
ETINFeHTINFOPINE /RINE 
SINFEPINFEF/RINFE SSGAN 
ELINFs,./GAMMLEPINE/RINE 


WRITE( 69100) PINFoRINF os QI NFe CINE SUINFE os VINFoHTINFs ETINEs SINFRELINE 
a, FBe 4s 


FORMAT( #C8e2XaPPINFE( PRESSURE) SFr FBeoa/s aXe PRINF( DENSITY) 


GRID 

GRID 

GRID 

GRID 

GRID 

INITIA 
ComMl 

Col 

CCAl 

COM1 

Com 

Came 

COM3 

COM3 

COM4 

COMMS 

INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 


4 
111 


117 


2f/e3Xe*OINFC( TOTAL WEL) 


33X»y *UINF CU COMP.) 


4 


ERGY) 
ORGY) 


3Xe*HTINFE (Te 
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eHerFRear/e 3XeFALNEC SOUND SPEED) =#5FEe4s/s 


Bt,FBeoas a Xe FVINE CV COMP.) BKeF Be aay» 


ENTHALPY ) BE reFA.Ga/o So FETINE IT. Spec. EN 


wee F Be Ge lo BXe#SINFC ENTROPY) 24s FGe4e/ eo 3Xe*ELINFC INTERNAL ENE 


2%#,F8.4,//) 


CALL ETATBCETs CFs KMAX) 
WRITE(6,112) a 


WRITECOsLLLICET IK)» 


Kel »KMAX) 


FORMAT( #O%)2X~*NCRMALIZEO DISTANCE FROM BODY TO SHOCK®) 


FORMAT(20Xs10F10-6) 


XL#( 2c O*®GAMPXMACHES2—GAMMLI/S(GAM*1 20) 
X20 (GAMO1] OVFXMACHSEE2Z/ (GAMMI #XMACHEF2 42,0) 


Pl=2Xi# 


PINE 


R1sX2*R INF 
cNT#P1/R1IF*GAM 
Te (LeO/KLI BCL O/GAMMLIF( Ce SPC GAMt1Ls )EXMACH##2) €#(GAM/GAMM1) *PINE 
K¥XB1L,040-5*GAMML FXMACH EFC 


PTORT® 


XX*#PINF/RINF 


WRITE(6s117) PT 
FORMAT(C/92Xe*#STAGNATION PRESSURE PT**sF1004) 
CHECK FOR FRESH START OR CONTINUATION 
IF(IR1EQ.1) GO TG 22 

CALL GRID 
CaLtL JACOB 
CeeeINITIALIZE Q VECTIR TO FREE STREAM VALUES 


00 
OG 1 J 
Or#1.0 
QC darks 


1 KelsKMAX 


eis JMAX 
4O(JdsK) 
lL) #RINF*O[ 


O(SeKe 2) "a LNFSUINE FOL 

QC deXe3) BR INFAVINE SOL 

Olde Ke GV B(PINESGAMLI+R INFRCINE ##245.5 39801 
CoceStt S$ ARRAY TO O EVERYWHERE 


DO 1 N 


19% 


7 StJsKoN) 202-0 
CeeelINITIALIZE FLOW FLELO FOR BLUNT 800Y PROBLCM 


on 


GAMP]= 


GaAmM+].0 


DG 2 J#2a5MAX 
LECABS(XEX( S9l22))-0-000001) S657 


TheT#0 


o5¥PI 


Gu TO 8 
THETSATAN (XEVCJolo2)/XEXCi9l92)) 
CONTINUE 


K#KMAX 


SANG B0e S#PIAATAN(HXEV A SoK a 2) /XEXC SX 2d) 

XX#XMACHE#2Z*S ING SANG) #¥#2 

PSa(2.CEGANFXX=GAMMLI/SGAMPLEPINE 

RS@GAMPLEXX/(GAMML#XX#260) FRINE 

USe(LeO-2eO8(XX—-1L.0) /GAMPL/XMACH* #2) #QINF 

V5 22 OF (KX—1L 00) SCOS( SANG) / (GAMPLEXMACH#®Z*#SIN( SANG) ) MOLINE 
PRSPINES(UPT/PINE<L OFC 1 OL O2SSINITHET #824 ToL ZFS IN(THETI SSS) & 


1.) 


Roe (PB/ENT) #*#(1200/GAM) 
OBeSORT(2.08GAM/GAMMILFABS (CPTORT“PB/R28)) 
YY=PIl*0.5-TrHel 
Ud#ABS(QBeCOSlyvy)) 
VBeQBeSIN(YY) 

CO 2 Kl» KMAX 


YY“ETC 


PRESSBPBOYY#(PS—=PB) 


K) 


RHOSRBCVYY*(RS—KB) 
OVELN®SORT( 200 8GAN/GAMMIEABS (PTORT@PRESS/RHO)) 


UVELSUBSYY*(US—UB) 
VWVELSVBOYY*(VS~V¥B) 


INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITLA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITLA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
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QVELOsSQRT(CUVELEe2+VVELE*%2) 
RAT#QVELN/OVELO 
UVELZUVEL@RAT 
VVELsVVEL#®RAT 
DIs1.0/D0( JK) 
Q(JeKel) #kHOFO!L 
Q(deKe2Z) sRHOFUVEL FDI 
QQ JeKe FZ) FRHOSVVEL FDI 
2 ACU Ke GD B(PRESS#GAMLICRHOS(UVEL S#2eVVELF#2)%0.5) 401 


CoeeREFLECT METRICS ANO DEPENOENT VARIASLES ABOUT PLANE OF SYMMETRY 


DO 4 Kal»KMAX 
OllysK)#062sK) 
MEX(CLsK al Se-XEX(29Ks1) 
XcVCLeKolIsxXEV(2sKol)} 
XEXCLeKe ZBXEX( 2K 92) 
XMEVYOL aKa 2} eexe VC 29K _2) 
DC 5 N®l1s¢ 
5 QCleKe Nd eQlesKoNn) 
G QCloKks3) 8-2(29Ks3) 
G3 TU 24 
22 CGNTINUE 
REWIND 1 
READCL) UMAXeKMAKy XMACHs GAM ITs TAUs 
COXC Ja Kd ao StL eo IMAX Dp Kaleo KMAX)» 
CCVCL eK ap SRL ea SMAX) oK BL KMAX) » 
CCOC I aK oS elLo ST MAX) sKtlLeKMAX) » 
CCOUXEXC Ia Ka N) a Salo UMAK) ph Ble K MAX) pN2192)2 
CCUXEV OS aKa Ne Selo IMAK) oK elo K MAX) oN@lo 2d» 
C00 QCLaKoNbo dale IMAXD eM Alo K MAXI ONEls 4) 
KX4MACHFQINE/CINE 
LTS#IT+l 
ITERe@ I TERSIT 
CatLkL JACGB 
WRITE(62110) 
LLO FORMATC(C#O*, *STARTING SOLUTION wAS READ FROM TAPE*) 
2% CuNnTINUE 
SUM(Z)#SGRTIXC 291) F824 (291) 482) 
OJ 11 J23eJMAX 


me ee 


12 SUMS) @SUMC SRL IESARTUCKG dp LISKC Sado LD DERZECV Edo LIMV( doled) 8#2) 


WRITE (65113) 
113 FORMAT(#0%,4ARC LENGTH) 
MRITECOsLLGIISUM( SD oJ 2e UMAX) 
114 FORMAT(20Xs10F10.5) 
RETURN 
ENO 
SUBROUTINE INTEGR 


COMMON/COML/UMAXS KMAXs SMe KMy XMACHS GAM »GAMMLOCN9DTs SMUs dC Se PRT» 
L IPRT»sHpOMEGAs IT» TAUsI TERS ENT ey PTORTsPINFs RINFeQINF oCINFo PTs ITS» 
2 IRlpIW2Zp LAF SU re IGEGMe TMpIVISo LTRAND CF a9 COCs SNMeREVYo PROS CVISSCVISL» 
3 TwAp LT wAs LI Pe KRESS» SMUIMPPHTINFoETING sSINFo cIINFoREVINe SUM( 30)» 


1 €T(30)5TR(30) 


COMMON/COM2Z/X( 30025) 9 V (30925) KEX( 3092592) oe XEV6 3002592) 9D0130,25) 


COMMONSCOM3/QC 300259 GS) a SK30 92d aS) vp AS( 30 r S a4) pHVEC ( 3094)» 
LEF (30242964) 
CeeeCOMPUTE FORCING FUNCTION AND STORE TEMPORARILY IN S$ ARRAY 
CALL RHS 
CeeeCOMPUTE RESIDUE EVERY 25 STEPS TO Cdecx FOR CUNVERGENCE 
IF(MCDO(ITs25)-EQ-OICALL RESIOU 
CeeeADD FOUKTH ORDER DISSIPATION TO SMCOTH SOLUTION 
CALL DISSIP 
Ceoee SOLVE FOR Q—BAR~-BAR 
DG 1 Ks259KM" 
CALL ABCX(K) 
CALL BIRIX(29JIMeK) 


INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 
INITLIA 
INITIA 
INTEGR 
CGoM1 

COoM1 

COM1 

Caml 

COM1 

coM2 

CoM3 

CoM3 

INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 


120 
tei 
lé2 
123 
12% 
125 
126 
Let 
126 
La9 
130 
131 
ie 
133 
13% 
135 
136 
137 
136 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
i5l 
Pac 
153 
154 
155 
156 
bo? 
156 
159 
1690 
161 
162 


- > 
oe 
rw 


OWNIOWNN AW FWD fw 


1 
CeoeoeS 


Cecosl 


Pr fh 


41 
Coeel’d 


4&2 
Coe ell 


31 
7 
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CONTINUE 

JLVe FOR Q=-BAR 

00 2 J#29JM 

CALL ABCY( J) 

CALL BIRIY(ZoKMs J) 

CONTINUE 

00 3 Nelss 

DO 3 Ka2sKM 

00 3 Js2sJm 

QCJeKaNP#PQ(UsKaNtS( Sa KoNn) 

CONTINUE 

TAUSTAUCDT 

RETURN 

END 

SUBROUTINE JACOB 

COMMON/COML/UMAXs KMAXs JM KM XMACHs GAMSGAMM1L sCNe DT» SNUsdC Sy PRT» 
Ll IPRT»HsOMEGAs [Ts TAUSITERSENTs PTORTsPINFORINFSQINFoCINF a PTs ITS» 
2 IRleITw2sIAFBDyLGEOMs TMe IVISe LTRANDCE pCO ao SNMeRE Ve PROSCVISsCVISI» 
3 TwAslTwWAsLIPs KReSs SMUIMPSHTINF os ETINF os SINFo cLINFsREVINe SUN(30}> 
1 ET€30)5TH(30) 

COMMUN/SCOMZ/X( 30925) 8VO309 25) 9 KXEX( 399 2592) 9 KEV 63022592) 20(30025) 
COMMIN/SCOMZ/Q( 320 s2an a) eSC 300259 GS) vr AS( 300 Gs Gd) oHV¥EC(30e4), 
LEF( 302435664) 

DATA IFLAG/O/ 

JMMaJM—] 

KMM aK Mm] . : 
OMPUTE X=XI AND YrXIs DXI AND DETA #® 1 

OG 1 Kl» KMAX 

O03 2 Jt29dM 

XcoV(SaKe 2d (XC Selo KdaX (Jnl sK)9#065 
KEXCSsKaZdBCV (Sele Kd mV Srl K) 18005 

CINTINUE 

0D 41 Kal» KMAX | 

KMEVEL ao Ke 2) (mde ORK le K) Ge O8XlSaKI—K( 39K) F905 
KEYCUMAN a Ke 2) (Se OFX (SMAX SKI HG OFX (CUM eK DO XC SMMD KD) 8005 
KEXCLoKe 2) 2m se OPV CL Ke eS#V (29K HV 39K) Pe0eS 
XYEXCIMAK a Ke 2) 863 CHV CI MAX a KIM4eOFV UUM KI SY C IMM KID 4065 
CGNTINUE 
OMPUTE X=ETA AND YoeTA 

O00 3 JtlsJMAX 

03 4 Ks2sKA 

KV CUeKe Le XC Se Kel peX( Sa K~-1)) 49.5 

MEXC Ue Ke LIs(VidssKelyaeViseK-1)) #065 

CONTINUE 

DQ 42 J=zl»sJMAX 

NEVO Seale Liem eOeX( Sal eee OKC dr 22 —X( 303) ) F005 

MEY Cdr KMAX a LIED eOEX (Ta KMAX) WG CORK (Ie KMD OX CU e KMM) 28005 
KEX(C Tele LIBl—ZeOFV Sel deGeOF VC Se 2K 0593) 98005 

KEXC Te KMAXPLIMCZ eDOCS a KMAXI MSc CHV CIs KMD OYE S2KMM) F025 
CONTINUE 

JMPUTE XI=X» XI-Ys ETAtXs AND ETAWY 

DG 5 KalsKMAX 

IFCIFLAGeNE.O) GO TO 7 

00 31 J#l»JMAX ; 

OLeLeO/CXEK( Sa Ke LP EXEV (Se Ko 2V—XEV( Soko LIS XEX( Se Ko2)) 
O(dsK) #01 . 

REX Cd eo Ko lLI*XEXC Soke lI F012 

XEYCUeKelLIe-XEV(JeKoi) 40! 

MEXC Io Ka 2D teKE XC Sako 2) 401 

MEY( Se Keo 2) 2XEVC39Ks2)401 

CONTINUE 

GO Tad 5 

CONTINUE 

D0 33 J#l»sJMAX 


A-18 


INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 
INTEGR 
Jac OB 
Com. 
COM1 
COM1 
COM 
Com. 
COM2 
€OM3 
COM3 
JAC 08 
JAC O38 
Jac 03 
JACOB 
JAC 03 
JACOB 
JaCO8 
JAC QS 
JACQS 
JACO8 
Jab 
JACCS 
Jace 
JAC Od 
JACOB 
JACCS 
JacOa 
JACOB 
JACOB 
JACOB 
JaCQ3 
Jac O3 
JaCQs 
JACOB 
Jat Od 
Jacda 
JACO8 
Jac 08 
Jac OB 
JaCGB 
JACOB 
Jacas 
dACO8 
Jac OB 
JacQa 
JACOB 
gaC 08 
J aCO8 
JACOB 
JaC OB 
JAC O08 
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DL el OS CXEX( I rKo LI OXEV (dehy ZIMXEV CS sK eo LIPKEX CI 9K 9 27) 
CeeeAdJUST CONSERVATIVE VARIABLES 8ASEO ON NEW MESH 
RRTeO (JK) /01 
Qide he LIBQlIeKoLIERRT 
QC se Ke 2) 2QC Soko 2)*RRT 
Ql dake 3d) al IeKa 3) *RRT 
QCsaK0S) sQC sa K re GQFRRT 
DO(J,K)ed01 a le 
KEXC Se Ko LPBXEXC Ie Kel dF01 
KEY (Sa Ko LI smXEY( de Kol) #01 
KEX( de Ke 2D SaXEX( seks 2) "01 
MEY (deka 2dexXEV( seks 2) 401 
33 CONTINUE 
§ CONTINUE 
2 CeeeREFLECT METRICS AND DEPENDENT VARIABLES ABOUT PLANE OF SYMMETRY 
IFC IFLAG~EQ-0) GO TU 8 
CG S K#1leKMAX 
OclsK)#0(2K) 
XEXCLeKe LP BeXEXC2eKol) 
XEYCLoKeLexeVt2sKol) 
KEXCLe Ke 2) eXEXC 2K 92) 
XEY(CLeKaZ) BmXEV(20Ke2) 
06 10 Nls¢ 
LO QCL»eKeNPBQ( ZK ON) 
9 Q{1l9Ks3)2—O029K2 3) 
8 CONTINUE 
TFLAGS] 
RETURN 
END 
SUBROUTINE GUTPUT(L) 
CMM IN/CCML/ IMAL KMAKs JMPKMe KMACHs GAM GAMML CNS OTs SMUZ ICS, PRT? 
1 | PRT yp Hp OMEGA LT e TAUP ITER PENT s PTORT PINE ORINFs QINFOCINE PT TT Ss 
2 TRloLw2e LAFSOr LGEGMe TMaLVISs LTRAN SCE eCCrdNMeREYs PROPCHISCVISL» 
3 Take LTwAeLI Py KRES» SMUIMPOHT INFoETING pSINFsELINFeREVIN® SUMC 30) 
1 &€T(630)TH(30) 
CSMMON/COMZ/X (3002599 (3092509 XEX( 30s 2592) 9XEV (309 2502) 90030929) 
CIMMIN/COM3/0( 3002594) 9563092594) 2 81 309 494) pHVEC (305 4)5 
LEF(3924)9G(4) . 
DIMENSION RHOL30,25) 9SLU30) 2 CON(8) CP 130) PREPZI30) PORAGI 30)» 
LLP (ZO) oS XSLISOI)s YSLE500) 
DATA FLAG/1e/ 
C Output FLOwFIcLO DATA 
1L9 FarmMaT(80Il) 
SUM( 2) BSQRT(XC 21) ¥82¢Vi291) #482) 
OG Ll J23eJMAX 
il SUC A ESUMCS—1LI*SORTCUKE Is LIMACI—Lo Lb dee2el Cis ti~Vld=loly ieee) 
RéS20.0 
PERRMX20-0 
KStL#l 
SUM(L)#=SUMN(2) 
0G 10 K#*lsKMAX 
wRITE(6s120) K 
120 FORMAT( #0%s¢SECOND INDEX=#9130/) 
LF (K-1) 303293042303 
393 CONTINUE 
WRITE( 69117) 

117 FORBAT(S STH) OX p #P/ PINES 4X9 #RO/RINE %9 Xp FUSIINE He SX PO VIOINE SP OKs 
BRS /SINE ®p &Xo SHTSHTINE® 2 SX p PM ACH 3X o HCP HP GKs OXHS LONG FYE TKD 
@ecI/ELINF#) 

60 TO 309 

304 WRITE(62301) 

301 FORMAT(# LST2&Xa¥P/ PINE #2 4XyF $ eo GX yp PUSOINE RSX oe PV/QINFE HSK» 
BES /SINE %) SX BHT/HTINE® SX pPRIRIGD BX MCPS Ge OX GD LOKs SYF9 TK? 
@e*EL/ELINE*®) 


Jac Qs 
JACOB 
Jac 08 
JACOB 
JACOB 
Jac OB 
JACOB 
JACOB 
JacO8 
JACOB 
JAC 08 
JACOB 
Jac 08 
JACOB 
Jac08 
JAC O08 
JACOB 
JACOB 
JACOsS 
Jac 08 
JACQOs 
Jac 03 
Jac 08 
JACQS 
Jac O08 
JACOB 
JACOB 
JACOB 
JaCOB 
QuTPut 
COMd 
coMl 
COM1 
COmM1 
Com*l 
eumd 
Gon3 
eams 
OUTPUT 
OUTPUT 
OUTPUT 
OuTPut 
QUTPUT 
OUTPUT 
OUTPUT 
OuTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OuTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OuTPutT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
GUTPUT 


309 
131 


801 


803 
BOe 


306 


307 wRITE(6e121) JpPAsSUM( J) eUlesVIrENTRIPHT I» 
L CPPeXC dak) oe Vi dsK DEIR 


121 
308 
66 


Te 


10 
lil 


122 
110 


107 
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CONTINUE 

CONTINUE 

00 64 JalsJMAX 
EN@Q(J9K 94) OC Ue K) 

RHOC eK) QC SeKolbeOCJeK) 
UrQ(deKkKr2)/Q( dy Kak) 

VeQ( dake 3) /QbdsKo1) : 
PASGAMMLE(ENSRHO( I 9K) 800 5*(UTUCVEY) ) 
CPP =(PA—1e)/(0e5#GAMFXMACHT# 2) 

IF(PA) 801268012802 —~ 

pAe=$paA 

WRITE(62803) Jake PA 
FORMAT(LOXs2I1L0,Fz2046) 

CONTINUE 

EXNTROsPA/RHOC I 9K) FFG AM 

HT SGAM/GAMML®PASRHG( Se KI F005 FC UFLFVEV) 
SSeSORT(GAM#PA/RHOC SKI) 

ULSU/QINE 

ViL2V/QINF 

ATL*HT/HTINE 

SIR#(PA/RHOC Je KD D/C GAMMIFETING) 
SERREABSIHTOHTINFE} ®1L00¢0/HT INE 

LEC PZRReGTe PERRMX) PERRMX=PERR 

RMS ERMS+PERKRRSE2Z 

SLC. FSQRTCUSUSVEVISSS 
IF (K-1) 30623072306 
CONTINUE 


wRITE( 69121) Jo PApRHOCSoK) pULSVIVENTROPHT Lo SLOSDo CPP» XC doko VO SoK) 
le=IR 


GC TO 398 


FIRMAT(L3s11E1164) 
CONTINUE 

CONTINUE 

00 10 J=#3sJMAX 


TECUSLEG) oLE ol oD eAND eSL(SH1) Ge eleO)oDRe (Sk J) GEeLeOeANDeSLCS>})e 
1 LE.1-0)) GG TO le 


GG TJ 10 

JSteJ 

JSUM*eJSLol 

COEF e(LeCeSL(SSLMIISISLIISLI@SLISSLMD) 


RHO(JsK) >» 


XSL UKSLDOXCISLAD KD FCGEFS( XC ISL KIMKCISEMS KD) 
YSLUKSLIMYCSSLM aK) FCOEFEC YC ISLS KIM VC ISLASK)) 


KSLeKSL¢1 
CONTINUE 
WRITcC(6s111) 
FORMAT(#0%,* SONIC LINE LOCATION*»s /) 
KSLsKSL=1 

DO 122 K=LheKSb 

BRITE(GS1L10) XSLCK) »S YSLCK) 

FORMAT(*# ASLexeclleSsIXo#VSLEevEllo4) 
RMSSSQRTCRMS/SMAX/KMAX) 

WRITE(G9107) PERRMX®RAS 

FORMAT (#0 %s * 


TOGM222e/GAM/XMACHFF2 

00 61 J#lsJMaXx 
RaeClJslsl)*#0llsl) 

En Ql dale) *#0l(Jol) 
UsQ(dols2)/Qldolsl) 
VoO(Jols3)/QCdel5)h) 

DR aGAMMLE(ERQED Se (USPC HVHFE2) D 
CP(J)sTOGN2#(PAwi1o) 


A-20 


PERCENT ERROR IN HT2# EL 2e4e3XKo* RMS GF PERCENT ER 
2ROR IN HT#*eEl2ce4e/) 


OUTPUT 
OUTPUT 
QuUTPUT 
OUTPUT 
OUTPUT 
OuTPeut 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
QUTPUT 


* QUT PUT 


OUTPUT 
OUTPUT 
OUTPUT 
QUT PUT 
GuTput 
ouTeut 
OUTPUT 
guteut 
OUTPUT 
CUTPUT 
OUTPUT 
OUTPUT 
QuT PUT 
OuTeuyt 
OUTPUT 
OuTPUT 
QUT PUT 
OUTPUT 
OUTPUT 
OUTPUT 
OQuT PUT 
QuTPuT 
QuTPuT 
OuTPut 
OurPut 
OUTPUT 
QUTPUT 
GUTPUT 
QUTPUT 
GuTPuT 
QuTPUT 
OUTPUT 
OuTPUT 
OUTPUT 
CUTPUT 
QuTPuUT 
QUT PUT 
OuTPutT 
OuTPUT 
OUTPUT 
QuUTPUT 
GUTPUT 
QuT PUT 
OUTPUT 
OuT PUT 
OUTPUT 
OuTPUT 
DUT PUT 
Oureur 
OuT PUT 
OuTtPeulT 


61 


62 


65 
63 


164 
64% 


3 


P 


10 


100 
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RCOP2C JI AVC Sel) ##2 

CONTINUE 

SUMNZ2SCP(2)8RCP2(2) 

IF(JMAX=1) 64963362 

00 65 J=22JMAX 

SUM1#SUM2 

SUM2Z2*SUN2Z*0. S#{RCP2(JIERC PZ I= “1)) #(CP( IS) +CP(J=1)) 
RBeY(SMAXs1) ; 

DRAG(J-1)*SUML/RB*H2 

DRAG(JMAX) SSUM2/RB E42 

WRITE( 69164) ORAG( JMAX) 
FURMATC I xs*®PRESSURE ORAG 8#,5XyF13.10) 
CONTINUE 

IF (I W22€9.-0)G60 TO 3 

WRITE(2) SMAXs KMAX» XMACHs GAMs TT» TAUs 


1 COXC So K de S els IMAXD oa KEl eo KMAX) » 

1 CQCYC So K) a Sela IMAXD p Kalo KMAX), 

l (COC SK), Salo IMAX) pK ele KMAX) » 

1 CCOXEXC Io KaoND op Sele SMAX) ao Kalo KMAX) sNBlo2), 
2 COOXEY CS a Ka Ni ode lo SMAX) aK Le KMAX) NOL 92)» 
ve CO( OOS e Keo N) op Salo I MAX) eK elo KMAX Dap NB] 9G) 
CONTINUE 

RceTURN 

END 


SUBROUTINE RESIOU 

COMMIN/CGML/JMAX»KMAX» JM» KM XMACHy GAM, GAMMLsCNsDT,SMUs ICS eo PRT» 
L IPRTpHsQMEGAs ITs TAUsITER ENT, PTOR Ts PINES RINFo QINF eo CINE eo Plo lTSs 
2 IRisTwW2,TAFADsIGEGMaTMe IVISs ITRAN a CF eo COs UINMDREYe PRD esCVISeCVISI» 
3 TwAvr IT TWAsL IPs KRES es SMUIMPSHTINFao c TINE s SINFoEILINE» REYINe SUMN( 30), 
1 £T(30)5TH(30) 

COMBMIN/COM2Z/X( 30925) V4 30025) 59 XEX( 3092592)» XEY63092592)50(30525) 
COMMIN/COMSFAC39 92594) 9503002594), Ad 305 Gea), VECO 

LEF (C3924) 9G6(%) © 

RSOMAX#0O.G6 

Q12342C.0 

DO 10u J229JM 

O00 130 K*29KM 

RSOSQR*0.0 

DG 5 L¥ls4% 

GLANT#S(SoK eb) ##2 

RSOSQKsRSOSQR*QL ANT 

IF (QLUMNT.LT.91234)G60TO5 

Q1234QLMNT 

J1234¢8J 

K1Z2348K 

L1i23¢eL 

CINTINUE 

TFCRSOSORLET.RSOMAX)GOTO1LO 

RSCMAX#®RSDSCR 

JRESDUsJ 

KReESOUaK 

CONTINUE 

RSOTOT#RSOTOTeRSOSOR 

CONTINUE 

RSOMAX#SORT(RSOMAX) 

RSOTOT#=SORT(RSOTOT) 

Q012342SQRT(01234) 

PERCNT®RSOMAX/RSOTOTEICO. 

RETURN 

ENO 

SUBRGUTINE RHS 
COMMON/COML/SRAX » KMAXs JMe K Ms XMACHs GAMsGAMMleCNe OTe SMUsICSs PRT» 
lL IPRTsHs OMEGAs ITs TAUSITER SENT es PTQRT s+ PINFoRINFeo QINFy CINE es PT a IT 3, 


A~-2] 


OUTPUT 
OUTPUT 
QUT PUT 
QUTPUT 
OUTPUT 
OuTPuUT 
OUTPUT 
OUTPUT 
QUTPUT 
QUT PUT 
OUTPUT 
OUTPUT 
OUTPUT 
QUTPUT 
OUTPUT 
OUTPUT 
QUTPUT 
OUTPUT 
QUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
QUT PUT 
OUTPUT 
ReESTOU 
CoM 
Com 
COM) 
COmM1 
CQM1 
COM2 
COM3 
COM3 
RESTOY 
RESTOU 
RESTIOU 
RESTOU 
RESToOU 
RESTOU 
RESTOU 
RESTOU 
RESTOU 
RESIOU 
RESTOV 
RESTOU 
RESTOY 
RESIDU 
RESIOU 
RESIOU 
RESTOU 
RESIOU 
RESTIOU 
ReSTOU 
RESTOU 
RESIDU 
RESIOU 
RESIOU 
RESIDOU 
RESIOU 
RESIOU 
RESIDU 
RHS 
COM} 
COM1 


96 
97 
98 
99 
1C0 
101 
102 
103 
104 
105 
106 
1¢?7 
108 
109 
110 
lll 
Pi2 
113 
114 
115 
116 
TD Oe 
118 


~~ 
_ 
0 


ODN Oow nn oOo W Lf WN hf 
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2 LRleIW2eTAFBDs IGEAMs The LVISs I TRANS CF eCCeoINMSREVe PROCVISsCVIS1» 
> TwAsITwAsL IPs KRESs SMUIMPoHTINF oc TINFoSINFoELING oS REVYINs SUM(30)» 
L E1030) 9TH(30) 
COMMON/COM2Z/X(30925) oVU302 25)» XEXC 309 2592 09 XKEVY( 30525529506 30,25) 
CGMMON/COM3/0(3092594)9S03022594)2A30305 494) pHVEC( 3094)» 
LEF(3024)26(4) 
Coee DATA ClyC2yC3/100971.0%0.0/ FOR 2 POINT ONESIOED DIFFERENCING 
Coce DATA CleC2rC3/leSam2n0e¢0s5/FGR 3 POINT GNESIDED DIFFERENCING 
DATA Cl2C2003/1.0971 2-090-0/ 
CeeeTHIS SUBROUTINE COMPUTES THE RIGHT HAND SIDE OF THE DELTA FORM 
Ceoee EQUATION 
CeeeFIRM E CONSERVATIVE VARIABLES ANO DIFFERENCE. STORE IN THE S ARRAY 
OG 1 K*2sKM 
DO 2 J#®lsJMAX 
wWeQOJSeKe1) 
RYel.0/w 
UEG(JaKs2)4RI 
VeQ(JeKs3)4KI 
POJAGAMALE(QIS aK es GImweOeSe(USu+ey¥sy) ) 
CUVEXEX( Uo Ko LIFUFXEY (So Ko LUFV 
EFC yelp *CuV 
EFC Je 2) GCI oKe 2) 4CUVOXEXC Ue K sl) *POS 
EFC Se 3) QI oe Ke SD FCUVOXEY( SoK ol) #POd 
EFC Ie SPEC OCU aKa Ge) eo POS) eCUY 
2 CONTINUE 
Coes CENTRAL DIFFERENCE E CONSERVATIVE VARIABLE 
DQ 1 N#12% 
DG l J=22J8 
L SUSoKaeNISCEF US Ole NISEF(J~1,N)) €e 
CeeeFikm F CONSERVATIVE VARIASLES ANO OIFrEReNCE. ADD TO PREVIOUS § 
Cee cARRAY 
DG 15 Js2,JM 
OS 4 KelsKMAXx 
a2#Q(JaKs1) 
R1#l1.C/a 
Jed JeK,2)*n1T 
VeC(JeXe 3) *RI 
POUBGAMMLE(C(SeKa Ga) owt St(USUSVFV) ) 
CUVEXEX( So Ka Z)PUHXEV (So Ka 20 *V 
EF (Keldew*CUV 
EF (Ke 2) 8A deKe 2) eCUVOKEX( Soke 2) FPOS 
CEC Kap 3) BAC Ia Ky SPECUV EXEC do K eo 2) #POS 
EFC Kp SP BIOC SK eG) OPO) FCUV 
YI 2OT/Yt Js) 
HVEC( Kal) 2s ueKe 3) #11 
HVEC( Ks 2) 220 S9Ke 3) FY T FU 
HVEC(Ke 32200 Ja Ke 3) 4 YI 8 
HVEC( Ks GS) 90G( so K eG) ePOJ) FVFYI 
& CONTINUE 
CeooecENTRAL DIFFERENCE F CONSERVATIVE VARIABLE 
00 3 N#l94 
00 3 K225K— 
Sido Ke Nl eaeSt ds Ke NICER CK OLN IEP CKoLe N) DS HMHVEC CK SN) 
3 CONTINUE 
15 CONTINUE 
RETURN 
ENO 
SUBROUTINE SHOCK 
COMMON/COML/JMAXs KMAKe UMa KBs XMACH GAM SGAMMI SCN9 OTs SHUs SCS» PRT» 
1 LPRTpHe OMEGAs LT oe TAUsITER SENT» PTORTe PING Oo RINFs QINFo CINE s PI a LTS» 
2 IRlo Lw2p LAF ADs LGEIMoT Mp IVISs LTRANS CE CC pr INMPREVo PRO sCVISsCVISIs 
3 TWApITWAyLIPs KRES» SMUIMP oHTINF SE TINE sSINF sELINF 9 REIN’ SUM( 30)» 
1 ET(30)5TH(30) 
COMMON/COMZ/X4 30925) 2030025) eXEX( 309 2502) XEV( 3092592) 90630925) 


A-22 
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COMMON/COM3/Q( 3022594) 9563002534), AB( 309 %,4) sHVEC( 3004)» 
LEF(3024)56(4) 

DIMENSION PLFOe 3) oPXIC 30) »PETA(30) sU03053) 2UXIT(30) sUETA(30)s 

LV (30% 3) re VXIE630) »VETACIO) » RV3003) sPTAU(30) »DTS(30) »XST(30)9 YST(30) 
DATA XSTsYST/30#020230%0.0/ | 


CeeeCOMPUTE THE FLOw VARIABLES ONE MESH INTERVAL BELOW SHOCK 


RNS2#0.0 

QSEM#0.0 

JMMBIMAX—2 
KMMBKMAX—=2 

OG 3 Kel»s3 

KK aK MAX=3 eK 

00 3 JalsJMAX 
Z¥l1.O0/Q0(UaKKol ) 
ROseK)BQC Se KKe LI FOC Ue KK) 
UC de KIB QC Se KKs 2) 42 
Vi JeKI8QC Se KK, 3) 42 
E28QC Se KK eG) POC Us KK) 


Z Pcp KI BCEZ—OeS FRC Io KP FCUC Se K) FEZEV I Se KI) FF2)) FG AMM 
CeeeCIMPUTE P-XIl» UeXIl» PETA», UecTAs AND VoETA DERIVATIVES 


0G & J82eJdM 

PXI OJ) 8(P (31932 —-P (Jn1s3)) #025 

UXI OS) 2 (UC Sols 3) UC S-123))40-5 

VXLT OSE OVO Stls FD VO Sm1, 32) 4065 

PXICL)s—PxXI(2) 

UXI(1) 2—-UXI(2) 

VXICLIevVxXI(2) 

PRICIMAX} B(3e GPL IMAKs 9) —GeOFP(IMe SD HPC IMM 309 8005 
UXICEMAXD OCS, OFUCIMAXKs 33-4 e08UC SMe 3) HU IAM 39) F005 
UX ILOSMAKD EC 2 eORVISMAXD SIMS eOFV (SMe SP tVI IMM 30) F005 
OG 5 Jel,y»JMAX 

PETAC SI @C3eOtP (Ia Z3—4 OEP KC Ue2)4P (Jel) F005 

UETACI) C2 OFUL Ie FP —4e OFUC se 2deUl del) 14025 

VETAC IEC Ze CPV IN eZ) M4 ORV (Se 22 OV (Sel) *065 
CINTINUE 

OC 10 Jules yMAx 

Ke K MAX 

XET#0O. 

UBARBXET#UC Se SD FXEX( So Keo LI eV Se ZV FKEV (Sa Kol) 
VEBARSXET UC Se ZIEXEXM I eK a ZPD eV (Se SPB CV (eK 92) 
RCS#GAMtP (523) 


Cees DETERMINE SHOCK TIME STEP 


SPSNO*SQRT(GAM#P (Je 3) /R0 523) ) 
ETATS=(XEX( Sok eZ) EXSTI SD OXEV CS eo Ke 20 4YST(I)) 

SIGAPABS(CUBARI FSPSNDESQRTUXEX( Sako LIPHZ2eXEV (de Ko ld) #¥2) 
SIGBBABSCETATS VBAR) ©SPSNDFSQRTI(XEX( Ie Ka 2) ee 2eXeV( SaKo 2) ¥#2) 
SIGAS®AMAXI(SIGAsSIGB) 

OTS(JI*#.-90/SIGAS 

IFCDTS( 3) -GT-OT) OTSC(S)I20FT 

Bee RCSHE(UXT (SP EREXC I eK ao lLPOVXICSIFXEV(C Uo Ko LPFUETAL SP FXEXC SK 2) 
L *VETACJSIEXEV Se Ko 2d e(V (Se 32/00 Se KID) 


CoeeDETERMINE PRESSURE AT SHOCK EXPLICITLY 
Ll PETACUIEP (Ue SP HDTS( SIF (-UBAREPXICSI-VBARFPETA(S) +B) 
10 CONTINUE 

CoeeFILL BQUNDARY POINTS FOR PRESSURE 


4 


PETACL)I#=PETA(2) 
PETACIMAX) S2,.08PETAC IM) “PETACIM<1) 


CeeeSMOOTH PRESSURES AT SHOCK USING FOURTH ORDER SMOOTHING 


SMUS#0,5 
00 14 Je3e IRM 


L& PXICUPSPETALCIINSMUS#OCLZ5#( PETA S—2 Ime OHPETALC J—1) eG. 08 PETA( J I-40 


> SPETACIFLIFPETACS42)) 
PRICZD@PETACZI—“SMUS#O01258(2.08PETAI(2ZI“Z.OFPETA(ZICPETALS)) 
PXIT(1lIsPXI02) 
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COM3 

COM3 

SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHICK 
SHOCK 
SHOCK 
SHOCK 
SHICK 
SHOCK 
SHACK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHICK 
SHOCK 
SHOCK 
SHOCK 
SHICK 
SHOCK 
SHOCK 
SHICK 
SHICK 
SHOCK 
SHOCK 
SHICK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
SHOCK 
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PXICIM) aPETAC IMI <SMUS*® Oe LZ58( PETAL IM@22=4 eOFPETAC IMM) +5 O8PETACIM) SHOCK 


> ~=2-0¥*PETACJMAX) ) 
PXICUMAX) #2.-O08PXI(C JMP—PXI( IMM) 
OG 1 JslsJMAX 
Ceo eeDETERMINE SHOCK ANGLE DELTA®ARCTAN(CSETAY/ETAX) 
DELTAMATAN(HXEV GC Saka 207 XEX( Ss K92)) 
SO=SIN(OELTA) : i 
CO#COS( DELTA) 
ULT=QINF#*CD 
P2aPXI(J) 
IF(P2.L—E.0.0) GO TO 6 
Z2G64N*1.9 
XMXBSQRT(OeS/GAMN#(PZIPINE SZ e¢GAMNM1 ) ) 
QSsCINF¥XMXeULT 
PHeP{J,»3) 
RBsK(Js3) 
Us#Ulds3) 
VB2V(Js3) 
ES*PB/GAMM140. SaR38(UdHEZOVEFFZ ) 
U2T#2eOFl] eum XMXFFZ) SC INES ((GAM+L OF FXMXI FULT 
RZaKINFRE(P2/PINF*GAMML/Z)/ (1 eO*GAMMI/Z*EP2/ PINE} 
UZ=sCINFeSoeez2eu2Teco 
VZSGINF eS CO-U2TFSD 
t2eP2/GABMM1L 49, SERZ2R(UCEEZ eV 2482 ) 
CeoeCuMPUTE PTAU 
PTAUC J) #0CP2=PS5)/0TS(J) 
Coee COMPUTE CONSERVATIVe VARIABLES AT SHOCK 
KsK MAX 
OL#1l.eCJO(IeK) 
O(JeKs lp) 2k2¥0! 
OC JeoKe 2) 2R2¥ULZ FO] 
Q(seKs 3) 2R2eV2e01 
QC Se%sG) 2E24*0]1 
CoeeDETERMINE ANGLE GF XI=CONST LINE WITH X=AXIS 
Kak MAX 
TFC ASSOCXEV( do K91L)2=9-000001) 7798 
7 THETA#1,57079633 
60 Ta 9 
8 CUNTINUE 
THE TASATANOCXEX (Joho LIS KEV (Sako d) 
9 CONTINUE 
CeeeCUMPUTE SHOCK SPcED IN X AND Y OIRECTIONS 
SETASTHETA@DELTA 
Qse2QOS/COS( BETA) 
LF CaaS (QSE) eGEe ABSCQSEM) DJQSeJ 
IF (CABS (QSE) eGE. ASSCQSEMIIQSEM#QSE 
RMNS&RAS+QSeE##2 
XST(S2—-OSc#COSt( THETA) 
YST(JISQOSE*SING THETA) 
The TA THE TA*57.29578 
DELTASDELTAS5S7.29578 
BoTASGETAS57.29578 
CoeePRIPAGATE SHOCK 
XQ dsKeX(SeK)POXSTC IJ ¢0T 
Ye soXdeV (sek de YST( JS) eT 
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YBeYlJal) 
OXXeX( J eKMAXJ—XB 
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KQJdoK) @ XB & DXX*ETA 
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SHOCK 
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SHICK 
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69 
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71 
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76 
77 
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79 
80 
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B82 
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85 
86 
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86 
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91 
wie 
93 
94 
95 
96 
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99 
100 
101 
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104 
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114 
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RMAS*#SQRTIRMS/IMAX) 
WRITE(62102) RMSo IQS, QSEM 


TFCIT,EQ.ITER) 
1CO FORMAT(C 80%, *FRUOM SUB. SHOCK) 
LOL FORMAT CSO Fe Flats Tr GX rH THETARS rE LO eGo LXer *#DELTASHrELO ce Ge 1X» #BET ARR, 

> ElLOeas Sa FXstMXaPsElL Os Gr aX rs*tulLT utr El Oe Se IXoFUZ2ZTEF,EL Oe Sr 2X *QSEaS, 


B ELD eee 2X oe FxXST ate EL Oe Ga 2Xs*VSTBRsElLO Sa Seo GXelLFEl1O.G) 
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2 €12.%95X9* AT THE END OF CALCULATIONS) 


RETURN 
6 CONTINUE 
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CALL GUTPUT(1) 


CALL EXIT 
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NUP1 = NL # 1 


F (NL) 
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NU 
wAC JS) FXO Je1l)) 


CFOS IMAC YD SF Cyn) )*Z 


NU 


Zee / (BCS) 
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NUPNL © NU # NL 

DO 2 Jl = NLP» 

Jos NUPNL = J] 

FI SPEC SIR XCS) SF (G41) 
RoTURN 
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A~40 
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On JNDEA= 


P/PINF 
0.24566 +01 
0.2456E+0} 
0.2448E+01 
0.2429E+01 
0.2405E€ 01 
0.23716 +0) 
0.2379E+0) 
0.22A6E +01 
0.223TE+01 
O.21AZE+01 
0.2126E +01 
0.206HE+01 
0O-2010F +01 
O0.1951F +01 
0.1892E¢01 
0.18033E+01 
O-L774E+O0) 
OL TI6F +0) 
0.1657E+01 
0.1597E*0} 
0.1537E+01 
Oo L479E+01 
O-1427E+O1 
O-}3ATE*O1 
0.1360E+01 
0.61343F+02 
0.1330E +01 
O0.}318E+0! 
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RO/RINF 
0,1A615 +0) 
0.18616 +01 
0,1857EF+01 
O,1A47F +01 
0,})#36E+01 
0,2819¢¢01 
0.1799E+01 
O.177T6E201 
0.1751F +0) 
0,17236+0} 
0,1693£+01 
0,1667E+01 
0,1630E+01 
0,1S59HF +01 
0,.1565F +01 
0.15326 +01 
0,149AHE +01 
0,1464E «01 
0,1429EF+01 
0,1393E+01 
0.1356E +0) 
0,1320E +01 
0,}288E+03 
0.12626 +0} 
0.124456 +0] 
0,1234E+01 
0.12256 «01 
O.1Z2ITE +O) 


SONIC LINE LOCATION 


UsULTNE 


O.5379Fh+00- 


0.5379t +00 
0.5397E+00 
0,5472t +00 
0.55446 «+00 
0,.5639E +00 
0.57Hbt+00 
0.5922rb +00 
0 h06ut +00 
0-624HE +00 
026425F +00 
0,66049£ +00 
0,6796620N 
O-69THE +00 
Oe TITVE 200 
0.73536 +00 
0.7544E +00 
O.fT2of.+00 
0.7927b +00 
0.8105F+00 
0,82974+00 
0.44H0E 400 
0 .4646F +00 
0.8774E+00 
6.8AGSE* 00 
0.49166 +00 
0.8957E+00 
0.8997b +00 


XSis 
XStL« 
XSite 
XSLe 
XSL 
KSL= 
XSL«= 
XSLz 
XSi 
XSLz 
XSLz= 
XSLz= 
XSL= 
KXSLs 
ASL= 
ASL= 
XSLe= 
XSL= 
XSL= 
XSL2 
ASL® 
ASL= 


0.3795F +00 
0,3804F «00 
0,.3H442F +00 
0, 3465E +00 
0.34 T0E +00 
0, 3869E+00 
0, 3U2RE +00 
0. 377HE +00 
0. 3hA6F +00 
0.3574F +00 
0.3421F +00 
0.32516 +00 
0.3045F +00 
0.2H425E +00 
0.2571E¢00 
0.23056 «00 
0.20046 +00 
0, }693E +00 
0.313446 +00 
NO. 9AILE-01 
O.S57TIE-0) 
0.1560E-01 


XSLe-0,2720F-01 


PERCENT ERROR IN HT= 


PRESSURE DRAG = 


YSL= 
YSL= 
YSL= 
YSL= 
YSL= 
YSL= 
YSt= 
YSL= 
Y¥SL= 
YSL= 
YSL= 
YSt= 
YSL= 
YSt= 
YSt= 
YSL= 
Y¥SL= 
YSL= 
YSL= 
YSL= 
YSL= 
YSL= 
YSL= 


be 


0.78316 +00 
0.8452E +00 
O0.9217b900 
0.9826E +00 
0.1053f.+0} 
0,1 1256 +0) 
0.1197E*0)1 
0.1272t +0) 
OL 3I46E+O1 
O.b41)¥9E +0) 
GO. L490E +1 
0.15545 +7} 
0.162¢Eb+0) 
O.loRH: +0) 
O,1747b+0} 
0, 160AE+0] 
0.})454¢t 0) 
0.1901 «U1 
O0.-})94)E eu} 
O.197THECO] 
O0.2005E+¢Ul 
O.20U2TE+O1 
U.2046E +01 


LO7T239537u 


U.4014F +09 


V/DTKE 
Oo) onr Od 
Oelourte-til 
O.ieid5r-0)} 
0.6457b-0) 
0,0%/4E-0} 
O.7T5749r.-01 
0.9rulFkeul 
U,ldvyHEe ht 
Oe,lisTeeno 
ae We ol ae 
O,1aG0k+Hu 
0-14) hE +00 
OH, b4onke Av 
O,14f4Ee Nl 
0,146490EeNG 
0.1475b200 
0, 14646400 
O.1426b 400 
O,lacdske ft 
0, ,13¢c5t+f0 
Qk? 56E+00 
On)’ /4b eu 
0, 0%4ee¢00 
O,102?eE+hu 
O,9743k-08 
0.9417E-01 
O.GLE7tE-0) 
0.b910E-01 


S/SINF 
OH, Le29E +08 
O,102%t +01 
A, bVeyvk +A) 
on, pA2KE Ol 
O0,1027E +401 
0. bv2bF 40) 
NO, LOcdskent 
NM, jucsre+O) 
O.,1021F +0} 
O,L0RYFEe Ol 
NoLOLTE +O) 
O,1O16Ee¢f1 
O,1U14F +O) 
OeVUIZE+O1 
O10) +0) 
0.10096 +01 
i. }NOHE +O) 
O,2006F 40) 
0,1005F +91 
0,1004F +0) 
O0,1003t ¢O) 
0,l00cK+0! 
O,100cr +01 
0.0016 +0) 
0,})001E +0) 
0.1001 +0) 
0.100}b +0) 
O-}H01F +O) 


HT/HT INE 
0,100u0r+0} 
0,lUdubr +0) 
0, YYYAE +00 
0,1000E+01 
0,bQUHE¢O1 
0,9994E +00 
0,10GnE +0) 
0,1000t +0) 
6.%997E +00 
O.,100nE+01 
0,100nb +0} 
Oo, OOF +0) 
0,):00nt+0)} 
U,%99SGECON 
b,1000E +0) 
0.9999E +00 
0, )0untk+01 
0,9¥999b +00 
0.,100NKE+¢0} 
0,1000bE+01 
0, 1000E401 
0, bVUNE +0) 
0,lu0nts0l 
uv, )Ount +0) 
0,}00nbk +0} 
0, LObnE el] 
0,lUunt +0) 
0,iv00nkeOl 


RES OF PERCENT EXROK IW HT= 


MACH 
0.7027F +00 
0.7027E+006 
0.7054E +00 
0.7194E+00 
0.?7315EF+00 
O.7475E°00 
0,77346+00 
0.7963 +00 
0.8203F 200 
0.86503£+00 
O.K791E +00 
0,9089E+00 
0.9390€ +00 
0.9682F +00 
0.9992E +00 
0,102KE<¢01 
0-1059E+01 
0,10AG9E+0) 
O0.1120t+01 
0O.1150E+¢0} 
O,LLH2E+O} 
0.1213E+01 
0,1242E +01 
0,1264E+0} 
O0,1279E+0) 
Ue LZ2A9E +01 
0.1296E+01 
0.1J3J03E+02 


O.4141E-01 


.CP 


x 


Y 


U.9242E+00-0.6239E 400-0 -6637E-01 


0.9242E+00- 
0.9195&+00- 
0,9070E+00- 


0,6239E +00 
0.60147E+00 
0.6140E+00 


0,4918E+00-0.5827E +00 


0,.8704E+00- 
0,.8438E+00- 
0.8165E+00- 
0, 7H55E+00- 
0,.750TE+00- 
0.7148E+00- 
0,.67H3E+00- 
0,.64)3€+00- 
0,6040E+00- 
0.5665£+00- 


0.5290E+00 
0.49) 7E+00 
0.45456 +00 
0.41 70F+00 
0.3790E +00 
0, 3409E 400 
0, J041E+00 
0,2713E400 
0.2456E +00 
0.2e284E+00 
0.2177E+00 
0,2098E+00 
0.201 8E+00 


0,5734E+00 
0,5349E +00 
0.50HHE +00 
0,.45862E+00 
0.4200E+00 
0,3536E6+00 
0.29K6E+00 
0e2145EF+00 
0,1371&+06 
0.3036E-0) 
0. 7860E-01 
0,.21h47E+00 
0,3743E+00 
0,56786+00 
0,7978E+00 
0,1084E+01 
0.1446E+01 
O.191IE+0) 
0,2544E+0)} 
0,3428E+0) 
0, 357HE+01 
O.372TE +O} 
0.JHT5SE+O} 


0.6637TE=-0) 
O-19HYECOU 
0.3343E+00 
024653E 460 
0.60061b+00 
0.7402E+00 
0 BHbH1LE*08 
0.1025E+01 
0-11 83E+01 
O0-1329E+01 
0.1502E+01 
0,1661E+01 
0,1456E+01 
0.2039£+0) 
0.0266E +01 

2 486EC01 
0.2762E+01 
0,.3043E6+01 
0,.3399E¢0) 
0 -3781LE+¢O} 
O.42THE Ol 
0.4852E+0} 
0.5638E +01 
0.6671E+01 
0.6H44E+01 
0.-7015E+01 
0.7182E+0) 


EI/ELINF 
0.1320€ +0) 
0.} 4206 +01 
O-L3I14E<+01 
0.1315E+01 
O.13I0E+01 
0.1304E+01 
0.1295E+01 
Oe t2HTE+O1 
O.1Z27HE 0! 
0.1267E+01 
O.f256E+01 
0.) 244E +01 
0.1233£+01 
O.1221€+01 
O0.}209E+01 
O.LIDTE+O] 
O.LI84E+01 
O,1172E+0) 
0e1159E+01 
OQ.1147E+0) 
0.1133€+01 
0.1) 20E+01 
0.1108E+0) 
0.,}099E+61 
0.10936+01 
0.) 089E+0) 
0.,.1086E+0) 
0.1083E+01 


p8v-v8 Yl IMSN 


Cp-¥ 


'¢ 45yo- 


a 


Q'¢ = 


v8p-v8 Yl IMSN 


cp-V 


AXISYMMETRIC FLOW OVER NOSETIP 


MACH NUMBER = 2.00 

RATIO OF SPECIFIC HEAT = 1,40 
THETA MAX. IN DEGREE = 120.000 
CF = 10000.0000 


IR] = 9Q 
IW¥2 = 0 
JMAX= 28 
KMAX= 18 
JNM= 25 (JUNCTURE OF SPHERE AND CONE) 
ITER = 600 (TIME STEPS FOR THIS RUN) > 


FREE STREAM CONDITIONS 


PINF (PRESSURE) = 1.0000 
RINF (DENSITY) = 1,0000 
QINF(TOTAL VEL.) = 2.3664 


AINF (SOUND SPEED) = 1,1832 
UINF(U COMP.) = 2.3664 

VINF(V COMP.) = 0.0000 

HTINF (Ts. ENTHALPY) = 623000 
ETINF(T. SPEC. ENERGY) = 5.3000 
SINF (ENTROPY) = 1.0000 

EILINF (INTERNAL ENERGY) = 2.5000 


NORMALIZED DISTANCE FROM BODY TO SHOCK 


02000000 0.058824 O,2237647 Oel76471 0.235294 0.294118 02635296] 06411765 06470588 0.529412 
02588235 0.647059 0.705882 042764706 0.823529 0.882353 06941176 1.000000 
STAGNATION PRESSURE PT= 526404 
STARTING BODY AND BOW SHOCK LOCATIONS 
XB | + var XS YS THETA J 
0.000993 “0.044547 -0.332571 -0.059421 ~0 5044562 l 
0.000993 02044547 -02332571 0.059421 02944562 2 
0.008923 0.133287 ~0.314574 0.17733) 0.133685 3 
0.024719 0.220969 -0.275024 0.293413 06222808 & 
0.048257 0.306897 ~0.263572 0.407449 020311931 5 
0.079350 0.390389 =0.225225 0.519540 00401054 6 
0.317751 0.470783 -0.130623 0.630000 02490178 7 
0.163154 0.547439 -0.130132 0.739294 0.579301 6 
0221520) 0.619750 -0.073859 0.948018 02668424 9 
0273476 0.68714} ~0.01166} 0.956841 00757547 20 
0.337519 0.749079 0.056758 1.066540 02846670 11 
0.406820 0.805070 0132058 1.177980 026935794 12 
0.480830 0.85467} 0.215092 32292135 12024917 13 
0.558961 0.897488 Oe 307047 1.410116 12114040 14 
0.640592 0.93318} 02409499 12533200 16203163 15 
0.725077 0.961466 0+5245}1 1.662848 12292286 16 
0.811743 0.982120 00654783 1.800904 16381410 17 
0.899904 0.994978 0.803867 1294961] 10470533 18 
0.988860 0.999938 0.976476 20111494 12559656 19 
1.077904 0.99696} 1061/8942 2.289979 12648779 20 
12166329 0.986070 16419903 2.489360 12737902 2) 
16253435 0.967353 1.711354 2.715216 1.827026 22 
1.336428 0.940956 2.070290 20974924 16916149 23 
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00¢30566°0 004356668°0 10-3%SS9°0-00+306%2°0 
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0O+3FTGO8°O 00+5890%°0 00*3569%9S5°0 TO+aL9ZT°0 
O04+3T69L°O O043SZEL°O 00+36069°0 10+35961°0 
OO+3TLE9°O OO+3SELZ°O OOF3SRERTO 10+36S12°0 
00432619°0 00+325T2°0 00*30R86°0 TO+3e4ES°O 
00+3924S°0 OO4+3FZE9T°O TO*3ZETT°O 10+39Sz2S72°0 
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OO+3690E°0 T0-3928¥°O 10*3664T°0 10*3G6562°0 
00*¢3012Z2°O 10-F2292°0 TO*FLLST°O TO+3HH0E*0 
OOSFEEET®O 20-3€268°0 10*3SE9T*°O 10+360TE*O 
T0-3S999°O E0-31266°0 10+39991°0 TO+3ZETE*O 
10-3569 °0-£0-32266°0 10+39S9T°O To*+3zETE*O 
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OO*F0ELL°D OOFFEITE*O 00+399S22°0 00+35166°0 
00*36202°0 004+391S2°0 00+*39€9R°0 00°38188°0 
00*35S9E9°O 00+30%61°0 10°3H00T°O 0OF76FLL°O 
OO+3LT9S°O OOFBHIHT°O TO+3KETT°O 00+39199°0 
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0.9384E+00 O0.1007F+00 
0.9549E+00 0.7966E-01 
0.9678F+00 0.6230F-0} 
0.9773E+00 0.4813F-01 
0-9R53E+00 0.3527E-0) 
0.9933&+00 0-2276E-0} 
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Oe33917E*00 0-2734E+00 
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0-5B859E+00 0-3115F +00 
0.6339F+00 0.3015F+00 
0.6789E+00 0.2876F+00 
O-7T211E+00 0.2702F +00 
0-7599E+00 0.2504F+00 
0-7954F+00 0.2288F+00 
0.8275F+00 0.20636+00 
0.8564E+00 0.1833£+00 
0.8822F+00 0.16066+00 
0-9049E+00 6.1383F+00 
0.9248E+00 0611666 +00 
0.9418E*00 0.9654F-01 
0.9545EF+00 0.8063F-01 
0.9636EF+00 0.6855F-01 
0.9712E+06 0-5787E-01 
069785E 4000.4 756E-01 


U/QINF V/QINF 
Oe L791E+00-0.2524F-0) 
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O0-10686E+U} 
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O-1067E+0) 
O-1057E+01 
O-1051F 40) 
0-1050E+0) 
Oo LOSOE+U) 
Oe 1049E+0)] 


S/SINF 
Oe L1I40E+U} 
O-1140E+0) 
OelLI39VE+0) 
O0.1138E+0) 
Oe LII6E+0) 
Oo I3SIE+O) 
Oe LL3IOCOE +] 
O-lI27E+0) 
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OolILIE+U] 
O-LLO7E+0) 
Oe LIOIE+U} 
O-LO9BE+U} 
0-1094E +0} 
Oe-lLO90E+0) 
0-1085E+0) 
0.1080E+0) 
O.L075E +0) 
O.1070E+0) 
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Oe LOSSE+0} 
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Oe LOSIBE+U] 
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O.1001E+0) 
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O.1001E+0} 
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067569E+00 O.LO076E+01 0-8812E-01 O.7201E+00 
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O-1882E+U) 0.3443E-01 062445F+01 0.2325E+0)} 
06.1905E*01 O.2117E=-01 Oe2560E*01 0.2346E+0} 
0.1928E+0) O.9105E-02 0.2675E+01 U.2366E*0) 
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O0-2716E+00 0,15556+01°021434E+00 0.5099E-0) 
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063615E+00 0,1492E+01-0.3216E*00 0.2541E+00 
0643246400 0,1434F6+01-0.9575E-01 0.3533F+00 
O065105E+00 O.1357E+01-06e7122E-01 0264542E+00 
0.5921E+00 0,.1269F+01-0.2843E-01 0.5488E+00 
0.6762E+00 O1174E+0) O-LO07T9E-01 0.6471E+00 
Oe 7615E+00 OL1074E+01 0466694E-01 0.7368E+00 
0.-8472E+00 0.97066+00 0.12026 +00 0.8321£+00 
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O-L014E+O01 OC 7701E+00 0-2570E+00 0.10U8E+0} 


0.2} 398E+01 
0.21355E+01 
O-1S14E+01 
0.1274E+0) 
O.1L237E*0) 
0.1202E +0) 
O,1169E+01 
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O.1087E+0) 
0.1066£+0} 
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0.-1035E+01 
0.21023E+01 
O.1011E+01 


EL/ELINF 
OL 781E+01 
0.1 7K81E+01 
0.1774EF+01 
O.}761E+01 
OL 742E+0)] 
OoLTI7TE+01 
0.1667E+0)] 
0.1653E+01 
0.1616E+01 
0.1576E+0] 
0.1534E+01 
06.1491E+01 
0-1449E+0} 
0.1407E+01 
0.1366E+01 
0.132660} 
0.}288EF+01 
0.1252E+01 
0.1219E+0) 
O-LISGTE+0} 
0.1158E+01 
O0.1130E+0) 
0.1105E+0) 
0.1083E+01 
O-1067E+0i 
0.1054E+01 
0-1044E¢01 
0.1033E+01 


EI/EQVINE 
O-1775E+01 
O.1775E+01 
0.1768E+0) 
0.1755€+01 
0.1737E&+0} 
O.17i2E+0) 
0.1683E+0} 
0.165060) 
0.1614E+01 
0.1575E +0} 
0.1935E+0) 
0.1494E+01 
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AXISYMMETRIC FLOW OVER NOSETIP 


MACH NUMBER = 3.00 

RATIO OF SPECIFIC HEAT = 1.40 
THETA MAX. IN DEGREE = 125.000 
CF = 10000-0000 


IR] = 0 
Iw2 = 0 
JMAX= 28 
KMAX= 13 
JNM= 25 (JUNCTURE OF SPHERE AND CONE) 
ITER = 600 (TIME STEPS FOR THIS RUN) s 


FREE STREAM CONDITIONS 


PINF (PRESSURE) = }.0000 
RINF(DENSITY) = 1,0000 
QINF(TOTAL VEL.) = 3.5496 

AINF (SOUND SPEED) = 1.1832 
UINF(U COMP.) = 93,5496 

VINFiV COMP.) = 06,0000 

HTINF¢T. ENTHALPY) = 9.8000 
ETINF(T. SPEC. ENERGY) = 8.8000 
SINF (ENTROPY) = 1.0000 
EITINFCINTERNAL ENERGY) = 2.5000 


NORMALIZED DISTANCE FROM BODY TO SHOCK 
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STAGNATION PRESSURE PT= 12.0610 


STARTING BODY AND BOW SHOCK LOCATIONS 
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mt 


ARC LENGTH 
ITER= 74 
ITER= 75 
ITER= 76 
ITER= 77 
ITER= 78 
ITER= 79 
ITER= 80 
ITER= 8] 
ITER= 83 
ITER= 84 
ITER= 85 
ITER= 98 
ITER= 99 
{TER= 100 
ITER= 101 
{TER= 102 
ITER= 103 
ITER= 104 
ITER= 106 
ITER= 108 
ITER= 110 
ITER= Tl2 


12573576 
1.649624 
1.725671 
1.801718 


J=25 
J=25 
J=?5 
J=25 
J=25 
J=25 
J=25 
J=25 
J=25 
J=?25 
J=25 
J=?6 
J=?6 
J=26 
J=26 
J=26 
J=26 
J=26 
J=26 
J=26 
J=26 
J=?6 


P)|= 
P}= 
P}= 
P}= 
Pj= 
P]= 
Py= 
Pj)= 
Pi= 
P|= 
P}= 
Pj= 
PI= 
Pl|= 
Py}= 
P}= 
Pj= 
P}= 
Pj= 
Pi= 
P)}= 
P)}= 


0.0464) 
0.97445 
1.90248 


0.819152 
0.765903 
0.732654 
0.659405 


-0.9494E-02 
-“0.-2176£-01 
-0.6208E-02 
-0.1858E~01 


-0.3116E-02 


~0.1578E-01 
-0.1639E=-03 
=-0.!388E-01 
~0.5239E-62 
~0.7673E-03 
~0.3419E-02 
~0-1475E-01 
-“0.5253E=-02 
-0.1307E-01 
~0.3077E-02 
-O.1L170E~01 
-0.-1900E=-02 
-0.,1079E=-01 
~0-7663E-02 
~0.56B5E-02 
-0.22949E-02 
~0-2021E-02 


0.13922 
1.06725 
‘1.99528 


RMS OF SHOCK SPEED= 


OL 39TE~0} J= 


AXISYMMETRIC FLOWFIELO OVER SPHERE 


SECOND INDEX= 


1ST 


1 
2 
3 
4 
5 
6 
qT 
8 
9 
10 
1} 
l2 
13 
14 
1S 
16 
17 
18 
19 
20 
el 
22 
e3 
c4 
25 


P/PINF 


0.4672E+02- 


0.4672E+02 
0.4589E+02 
0.4401E+02 
9e64140E+02 
0-.3A14E+02 
0.3440£+n2 
0.3032E+02 
0.2614E+02 
0.2203E+02 
G.IAL2ZE+O2 
0-1455E+62 
O-1141E+H2 
0.8736E +01 
0.6533F +n} 
O-.4770E+01 
0.3404E+0)2 
0.737T4E +0} 
0.1622E +0} 
0.1085E +0] 
0.4 7H4F +00 
O.3°1NE+00 
0.22966 +00 
0.1993F+¢n0 


1 


S 
0.4641E=-0)} 
0.-4641E-0)] 
0.13926 +00 
0-2320EF+00 
06324HE+00 
0.4176E+00 
0-5104F +00 
0.6032E+00 
0.6960F +00 
0.7B8BE+00 
0.8416E+00 
0.9744F+00 
0.1067F +01 
O.1160F +0] 
0212536 +0) 
0213466 +0) 
061438E+0] 
0.t531F +0} 
0.16246E6+0) 
NMeLTI7E +0} 
O0.1L810F +0] 
0.1907F +0) 
0.1995F +0} 
0.20A8F +0) 
AePITBIF +O] 


U/QINF 
0.1183F-02~ 
0.1183E-02 
O.LI1I7E-01 
0.3250E-01 
0.6332E-01 
02.1032E+00 
0.1514E+00 
0.2069E+00 
0.2680E+00 
0.3334E+00 
0-64015EF+00 
0.47066+00 
0.5386E+00 
0.6040E+00 
0.6651E£+00 
0.7202F+00 
0.7681E+00 
0.-8075E+00 
0.48373E+00- 
0.8568E+00- 
0.8652E+00- 
0.8619F£+00- 
0.8470£+00- 
0.8195E+00- 
0.7993F+N0- 


0.23202 
1.16005 
2-08809 


22612541 
20771801 
20929354 
32045379 


0.32482 
1.25286 
2.18089 


23 MAX SHK SPD= -0,3030E-061 


V/QINF 
0.2546F=-0) 
0.2546F-0) 
0-7970F-01 
0.1375F+00 
0.18A0E+00 
022326E+00 
0-.2703F+00 
02-3002F +00 
023206F +00 
0.331 0F+00 
0.3306F +00 
023192F+00 
0.2965F +00 
0.2628E +00 
0.21) 86F +00 
0-1646F +00 
0-1018F&+«00 
0.-3150£-01 
0-45)3F-0} 
0.12666 +00 
0.2113F +400 
0.2975F +00 
.s3Jh3I6F£ +00 
0.4670F +00 
0.525HF +00 


S/SINF 
0.4085E+Uj 
0.4085E+0) 
0-4085E+0)] 
0-4085E+0} 
0.4085E+U] 
0.4085E+0} 
0-4085E+0} 
Ne 4085E+U} 
0-4085E+U)} 
0.4085E +0} 
0e4085E+U) 
0-4085E eu} 
0-4085E+0)} 
024085E+U) 
0-40B5E +0} 
0-4085E+U} 
0.4085E*0) 
0-4085E+¢U)] 
0.-4085E+U) 
0-4085E+0)] 
0.4085E+U] 
0.4085E+¢0) 
0.4085E+0) 
0.4085E+U} 
90.4085E +0} 


HT/HTINF 
O.1000E+01 
0.1000E+0) 
0.1000E+0} 
0.1000E+0) 
O.1000E+0) 
0.1000E+0} 
0.1000E+0) 
O.-1000E+0) 
O0.1000F+0} 
0.1000E+0} 
0.1000E+0) 
0.1000E+0) 
0.1000E+0} 
0.1000E+0) 
0.1000E+0} 
0.,.1000F+0) 
0.1000E+0) 
O0.L1000E+0)] 
0.1000E+76) 
0.1000E+9] 
C.1O000E+H] 
0.1000E+0] 
0.1000E+0)} 
0.1000E+0} 
O.1000F +0} 


0.41763 
1.34566 
2.27373 


22302947 
22368538 
22431692 
22492662 


0251043 
1243846 
2e36656 


0.60323 
1.53127 
2.45940 


2.181662 
22181662 
26181662 
26181662 


0.69604 
1.62407 


AT THE END OF CALCULATION 


R/RI 
0.5701E+0) 
0.5701E+0) 
0.5628E+0) 
0-5462E201 
0.5229E+01 
0.-4932E+01 
0-4581E+01 
0.4186E+01 
0.3766E+01] 
0.3332E+01 
0.2898E+0] 
0.2478E+0} 
0.2083E +0) 
O.} 721E+01 
0.1399E+¢0) 
OolLI7E+¢Ol 
0.8778E+00 
O0.6787E +00 
0.5} 70&+00 
0.-3868E+00 


0.2899E+00- 
0.2161E+00- 
02.1625E+00- 
O0.1279E+U0- 
Os} 157E°00- 


CP 
0.1814E+0] 
0.1614E+01 
0.-1781E+01 
O.1707E+0) 
0.1603E+01 
O-1474E+01 
0.1325F+0) 
0.-1163E+0) 
0.9977E+00 
0.6344E+00 
0,.6793E+00 
0.53766 +00 
0.4131£+00 
0.3070E+00 
0,2196E+00 
0.1496E+00 
0.9538E-01 
0.5454E-0} 
0.2469E-61 
0.3515&-62 
0.1104E-02 
0.2O70E-01 
0.2695E-01 
0-3057E+-01 
O.3L77E-02 


x 


Oe 1OTIE-02- 


O-LOTZE-02 
0-9680E-02 
0.-2681E~-01 
0e5233E-0)} 
0-«8600E-0)] 
O-1275E+00 
02-1766E+00 
0-2328E+00 
022955E +00 
0+«3644E+00 
0e4387E+00 
0-51 78E+00 
0-6011E+00 
0.6878E+00 
0.7772E+00 
0.«8686E+00 
0-96] 0E +00 
0-1054E+0)1 
021146E+01 
O0-1237E+0) 
061325E+0) 
001412E+0) 
0261495E+01 
001574E+01 


0.78884 
1.71687 


Y 
0.4640£-0) 
0.4640E=-0} 
0.1388E+00 
0.2300E+00 
0.3192E+00 
0.4057E£+00 
0.4847E+00 
0.56/75E+00 
0,6414E+00 
0.7T097E*00 
0.7720E+00 
0.8276E +00 
0.5761£+00 
0.9170E+00 
0.9500E+00 
0.9749E +00 
0.9913E+00 
0.9992E+00 
0.9986E+00 
0.9693E+00 
0.9715E+00 
0.9453£+00 
0.9110E+00 
0.&8688E +00 
O.B192E +00 


0.88164 
1.80968 


EI/ELINF 
0.8195E+01 
0.8195E+01 
0.-8153E+«01] 
0.8056E +01 
0.791 7E+0) 
0.7734E +01 
0.7509E +01 
0.7243F+01 
0.6942E+01 
0-6611E+0) 
0.6252E+01 
0.5872E+01 
0.5478E+01 
0.5076E+0} 
O0.4671E+01 
0.4270E+01 
0.3877E+01 
0.3498E+0)] 
0.3138E+01 
0-2H00E+01 
0.24989E+0] 
0.2213E+0)] 
O.1975E+01 
0.1795E+01 
0.17246 +01 
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10+398%S°0 
TO+3SERS°O 
10¢39819°9O 
10+36259°0 
10+3LSA9°O 
104+329TL°O 
10+30%42°O 
10+3619L°0 
to+38LAZ°O 
10+32E08°0 
10+36E18°O 
10+368T8°O 
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To+*+3S981°O 
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T0+36S9S2°0 
lo*+J€EH2°O 
To*39ztc°o 
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P/PINF 
0.4494E+02 
0.4494F +02 
024422E+02 
0.427TAHE+02 
0.40756+02 
0.382hE+92 
0.3540F+02 
0.37?25E +02 
0.2902E+02 
0.2583E+02 
O.er?3£+02 
0.1983E+02 
0.1720E+62 
0.1484£+02 
O0.1277TE+02 
0-1096E*02 
0.9407E*01 
0-8078E +01 
0.6951F+01 
0.-5993E +01 
0.S51G1E +01 
0-4479F 401 
0.3876E+01 
0.3386E+01 
0-3024E +01 
0.-27T67E+01 
0.2554E+01 
0.2370EF +01 
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P/PINF 
0.44S7F +02 
0.4457E+02 
0.4390E+02 
064254E+*02 
0.4062E+02 
0.3825E6.+02 
023552E+02 
0.32?52F +02 
0.2943E+02 
0.2637TE+02 
0.2339F+02 
0.2058E +02 
0.1AN2ZE+02 
O.L57T1E+¢02 
0-1365E+62 
0.L185E+02 
0.1N27E+02 
0.8912E+01 
0.7742E+0) 
0.6735E +0} 
0.5868E +01) 
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0.2A126+01 
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024935640) 
0.4705F+0) 
0-4452F +01 
0.4184E+01 
0e3901E+01 
O0.3611F +01 
0233296401 
0+3054E +01 
Oe2794F+01 
0-2550E +01 
0.2323F£+01 
O.2117F+01 
02.1933F+0)1 
0.1769F+0) 
6.1623F +01 
0214936 +01 
0213816+01 
Oe l291E+01 
0-1214E6+01 
0-1142E+01 
0-1080E+0) 
O0-1027E+0} 
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RO/RINF 
0.5518E +0) 
0.55])8F+901 
0254B3E+01 
0.5408E+01 
0.5301€ +0) 
0.51656 +0} 
0.4997E +01 
0.4796E6+01 
0-4573E+01] 
0.4337£+0)1 
0.240836 +0) 
0.34206 +01 
0.3562F+0) 
0.3308£F +01 
0-3064EF +0) 
0.2832E+01 
0.26136 +01 
0.2412E+0} 
0.225056 ¢0)} 
0.2066F.+0} 
O0-1919E+01 
O0e-1784E6+01 
0.1667E+01 
0-1573F+0) 
0-1493F +01 
02.1419E+01 
0.13556+01 
0.1300F£¢01 


U/GINF 
0.1081E£+00 
0-1081E+00 
0.1188E+00 
0.1393£+00 
0.1690E+00 
0-2066E+00 
0.2505E +00 
0.2985E£ +00 
0.3492E+00 
0.4012E+00 
0.4522E +00 
0.5013£+00 
0.54806+00 
0.5915E +00 
0.6316E+00 
0.6683E +00 
0.7014&F+00 
0.7315E+00 
0.7588E +00 
0.7836E+00 
0.8063E+00 
0.8276E+00 
0.8478E+00 
0.8659E+00 
0.8788E+00 
0.8864E200 
0.8922E+00 
0.8979E +00 
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0.3126E +00 
0.3622E+00 
0.-4131E+00 
0.4628E +00 
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0.5562E+00 
0.5987E+00 
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0223566 +0) 
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0.1998E+0) 
0-1976E*0) 
0.1964E+0} 
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0.9995E*00 
0,.9996E+00 
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0.9992E+00 
0.9992E+00 
0.9993E+00 
0.9992E+00 
0.9991F +00 
0.9993E+00 
0.9993E£+00 
0.9991E+00 
0.9991F +00 
0.9989E+00 
0.9990E+00 
0.9990E+00 
0.9991EF+00 
0.9991E+00 
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0.9991E*00 
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0.9993E+00 
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0.9992E+00 
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0.9994E+00 
0.9994E +00 
0.9992E+00 
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O0.1711E+0) 
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O.1L1LI2E+0} 0014256700 0.7168E+00 
0,9852E+00 062045F+00 0.8014E+00 
0.86236+00 O62740E+00 0.881 7TE+00 
0.7471E+00 023497E+00 0.95457E200 
0.6428E+00 02043256+00 O.1L031E+8} 
0.5491E+00 065206E+00 9.61102E+01 
0.4669F+00 0-61656+00 O.1LI67E+0) 
0.3953E+00 Oe7F1B3E+00 Of 1232E +01 
0,.33366+00 068287£+00 0.1292E+01 
0.2809F+00 069472E+00 0.1353E+01 


Oe2361E+00 OelOT6E+O] 0.1410E+01 


O.1L9B1E+00 O-FZITE*O] O-L47IE+O1 
0,.1659E+00 0-613736+0} 0.1528E+0} 
0.1381E+00 Oo1550E+01] U.1594E+0) 
Oo L141E+09 OL 752E+01 0-1660E+0) 
0.9467E-01 0<¢1989E+01 0.1736E+0} 
O.8031E-01 O-f277E+01 O.18C4E+0} 
0,.6992E-0) 0«2402E+01 0.1840F+0) 
0.61]68E-01 062526E+01] OO. 1856E+01 
0.5435E=-01 062649E+01] O- L870E+0} 
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0.1703E+01-0.9044E-01 021528E+00 
0,.1649E+01-06F518E-01 0.2541F+00 
ne 1572£+017064880E-01 043533E+00 

~1478E+01-0.1655E-01 0.4512E*00 
O,)}370E+01 042549£-01 0.5459E+00 
O.1251E+01 O6F235E-01 0.6393E+00 
0,1128E+01 041296E+00 0.72/6E+00 
O,L007TE+O) 061915E+00 0.B8145E+00 
0.8886E+00 0-26116+00 0.8974F+00 
O.T7TOE+00 046393706400 0.9775E+00 
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0.5022E+00 0660636+00 0.1198E+01 
0.43056+00 067099E+00 0.1269E+01 
0,.3680F+00 0682306+00 0.}335E+01 
0.3140E+00 0694526400 0.1404E201 
0.2676£+00 O-1079E+0) 041469E+01 
0622766400 Ok 227E+01 061539E+01 
0.1932£+00 061393E+01 0.1608E+0) 
0.1629£+00 061582E+*01 O.1687E+0) 
0,13656+00 O«18008+01 O.1767E+0} 
O.1150£+00 0462060E+01 0.1860E+0) 
0.9930E-01 0-2378E+*01 0.1967E+01 
O.B8R27TE-01 O-2510E+0] OL994E+01 
0.T959E-01 O62641E+0! 0.2019E+0) 
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0-S166E+0} 
0.4458E+01 
0.4569E+01 
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0.381660) 
0.3596E+01 
0.3389F+01 
O0-3IDIE+O) 
0.2999E+01 
0.2806E+01 
0.2622E+0) 
0-2491E+01 
0.2419E+01 
0.2365E¢01 
0.2308E+01 


EL/ELINF 
0.8078E +01 
0.8078E+0) 
0.8008E+01 
0.-7867£+01 
0.7663E+01 
0.7406E +01 


0.7108E+01 . 
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0264356 +0} 
0.-6081£¢01 
0.S5730E+01 
0.5388E+01 
0.5059E+01 
0.4748E+01 
024456E +01 
0.-4184E+01 
0.3932E+01 
0.3695E+01 
0.3471E+01 
0.2259E+01 
0.3058E+01 
0.2861E+01 
0.-2664E+01 
0.2477TE+0)1 
0.2346E +0) 
0.2273E+01 
0.2218E*01 
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024385t +00 
0-5483E+00 
0.6847E+00 
0.8286E+00 
02.9766E+00 
Oe-LI3TE*0) 
0.1300++01 
0e1457E+01 
0-1620E+01 
Oe} 787E+01 
0.1948E +01 
Oe2110F+01 
0.2271E+01 
0.2431E+O1 
0e2591E+01 
0e2750E+01 
0-2910E+01 
0.-3071E+01 
0e3235E+01 
0.3409E+01 
0.3593E+01 
O,3770E+0) 
0.3901E+01 
0.39981E+01 
0.64042E+01 


0.4102E+01° 


MACH 
0-4157E+00 
0.4157E+00 
6.4703E+00 
0.5810E+00 
O.-7201E+00 
0-8642E+00 
Oe LOLIE+O1 
O-LIB81E*O1 
021353E+01 
0.1502E+01 
0.1681E+01 
0.1857E+01 
0.2016E+01 
O0e2}91E¢0!1 
0.2.2355E+01 
0.2520E+*01 
0.2688E+01 
0.2847E+01 
0.3008E+01 
0.31 70E+01 
0,.3330E+01 
0.3503E+01 
0.3687E*O01 
0.3846E+01 
023960E+01 
0.4034E+01 
0.4092E+01 
0241)52b+01 


cP XK Y 
0-1645E+017001375E+00-0.5284E-01 
0,1645E+01-0.1375E+00 0.5284E-01 
0.1624E£+01-0-1280E+00 0.1541E+00 
0. 1578E+0170.1134E+00 0.2632E +00 
0.15166+01-0.8672E-01 0.3661E6+00 
0.14406+01-0-5501E-01 0.4683E+00 
0.13526+01-0.1278E-01 0.5673E+00 
0.1254£+01 043325F-01 0.6663E +00 
0.11546+0) 0.9090E~01 0.7600E+00 
0,-1054E+01) 061525E+00 0.8538E +00 
0.9540E+00 042224E+00 0.9444E+00 
0,.8587£+00 0.2988E+00 0.1034E+90) 
0.7706E+00 0.3837F+00 O.LL20E+0) 
0,6886E+00 064745F+00 0.120860) 
0.6140£+00 0-5757£+00 O.1L291E+0) 
0.5460E+00 026847E+00 0.1380E+0)} 
0.4846E+00 02-8059F+00 0.1464E+01 
0.42976+00 0.9393E+00 0.1555E*01 
0.3804E6+00 0-1089F+01 0.-1646E+02 
0.3361E+00 023258EF+01 0.1746E+01 
0,2958E+00 Oo1451E+01 0.1847E+*01 
O.2581E+00 O-1678E+O! 0.1965E +0) 
O.2231E+09 041946E*01 0.2088E+0) 
0.1942£+00 O.22e72t+01 0.2232E+0)1 
0.17436+00 0¢2679E+01 0.2398E+01 
0,1620E+00 062832E+01 0.2455E +01 
0.1527E*00 042984E+01) 0.2509E+01 
0.1446E+00 063134E+01 0.2562E+0) 


CP X Y 
0. 1617E401°001502E+00-0.5343E-01 
0.1617E+017-022502E+00 0.5343E-01 
0.1599E+01°0-8405E+00 0.1599E+00 
0.1558E+01-001262F+00 0.2662E+00 
0,15006+01-0+-9936E~01 0.3703E+00 
0.1430E+01-0-6783E-01 0.4740E+00 
0.13476+01-0.2554E-01 0.5745E+00 
0.1257E+01 O-2021E-01 0.6753E+00 
O.1165E+01 O-F800E-01 0.7707E*+00 
O-LOTIE+01 0613956+00 0.8669E+00 
0.9773E+00 022095£+00 0.9601E+00 
0,8887E+00 0-2861E+00 0.1052E6+01 
0,.8056E+00 0637156700 O.1142E+01 
0.7278E+00 004630E*00 0.1254E+01 
0.65626+00 065655E+00 0.1322E+01 
0,.5906E+00 04-6763 +00 O-1417E+01 
0,5307TE+00 0-8002E*00 0.3507E+0) 
0447636400 049374E+00 0.160660) 
0.4268E+00 0-1092E+01 0-1794E+9)1 
0.3814E+00 0«4268E+01 0-1814E+0) 
0-3388E+00 Oo1470E+01 021926E+01 
0.2978E+00 OL TICE+01 0.2058E+01 
0.25966+00 0-1994E+01 0.2195€+0) 
0.2283E+00 064343E+01 0.2356E +0) 
0.2070E+00 O0-2780E+0)] 0.2542E+0) 
0,.1940E+00 0.29396+01 0.2608E*01 
0,1842E+00 0.3098E+01 0.2672E+01 
O,1745E+00 063255E+01 0.2735£+01 


EL/EIINE 
0.7969E+01 
0.7969EF+01 
0.7891F+01 
0.7726E+01 
0.7493E+01 
0.7206E+0! 
0.6875E+01 
0.6510E+01 
066133E+01 
0.2.5749E+01 
0.5371E+01 
0.5006E +01 
0.46596 +01 
0.4335E +01 
0.4035E+01 
0.3756E6+01 
0-.3500E+01 
0.3263E+01 
0.3044E+01 
0.2841E+01 
0.2649E2+0) 
0.2466E+01 
0.2290E+01 
0.2135E+0) 
0.2028E+01 
0.1966E+01 
OL I21E+01 
O.}B77TE*O 


EI/ELINF 
0.7925E +01 
0.7925E+01 
0.7852E+01 
0.7677TE+0) 
0.7433E+01 
O.7141E+01 
0.6793E+01 
0.64)2E+01 
0.6026E+01 
0.5632E+01 
0.-5237E*01 
0.4864E+0) 
0.4515E¢01 
O0.4187E+01 
0.3886E+01 
0.3609E+01 
0.3357TE+01 
0-3127E+01 
0.29186E+01 
0.-2726E+01 
0.2545E+01 
0.-2371E+01 
0.2208E+01 
0.2074E+01 
0.19836+01 
0.1927E+01 
0.1]885E+01 
0.1842E+01 
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A-74 


Say 


ARC LENGTH 


0.0464) 0213922 0223202 0.32482 0.41763 
0.97445 ,, 1.06725 1216005 1.25286 1.34566 
1.90248 1.99528 2.08809 2.18089 2.27373 
ITER= 73 J=25 Py= -0.3250E-01 
ITER= 74 J=25 P1= -0-6401E-01 
ITER= 75 J=25 PL= -022465E-01 
ITER= 76 J=25 Py= -0.-5601E-01 
ITER= 77 J=?5 P1= -0-1730E-0) 
ITER= 78 J=25 PY= -0.4862E-01 
ITER= 79 J=25 P1l= -0.1042E-01 
ITER= 80 J=25 P}= -0.4198E-0) 
ITER= 8} J=25 Pl= -0.3961E-02 
ITER= 82 #&£«®4J=25 Pl1= -0.3639£-01 
ITER= 84 J=25 Pl= -0-2687E-01 
ITER= 86 J=25 Ply= -0.1508E=-01 
ITER= 88 J=?5 Pl= -0.8419E-02 
(TER= 98 J=26 Pi= -0.6560E-01 
ITER= 100 J=26 Piz -0-5262E-01 
ITER= 102 J=26 Pl= -0.4892E-01 
ITER= 104 J=?6 P}Y= -0.3556E-0) 
ITER= 105 J=26 Pt= -0.7512E-03 
ITER= 106 J=26 Py= ~0.344] E-01 
ITER= 108 J=26 Pl= -0.-2340E-01 
ITER= 109 J=26 P1= ~0.8658E-03 
ITER= 310 J=26 Pl= -0.2244E-01 
ITER= 112 J=26 Pl= -0.1459F-01 
ITER= 133 J=26 Pl= -0.3)10E-03 
ITER= 114 J=26 Pl= -0.1423E-01 
ITER= 116 J=26 Pi= -0.6544E-02 
ITER= 117 J=26 Pl= -0.1)252E-02 
ITER= 118 J=26 Py= -0.5643E-02 
ITER= 120 J=26 Pl= =-0.-3298E-02 
ITER= 122 J= 75 Pi= -5.5663E=-03 
ITER= )23 J=?6 P= ~0.2048E-06 
ITER= 124 J=26 PlY= -0.3821E-03 
KMS OF SHOCK SPFED= 044942E-01 J= 22 MAX SHK SPD= 0.1028E+00 
AXISYMMETRIC FLOWFIELO OVER SPHERE 
SECOND INDEX= 1 
IST P/PINF S U/QINF V/QINF S/SINF HT/HTINE 
1 061289EF +0370 -e4641E=-01 O2.1158F-02-0.2492E-01 O-L0ISE*U2 0.1000E+0) 
2 0e1289E+*03 0646426 =-01 OF1LI58E-02 0-62492F-0} O-1015E+02 0.1000F+0} 
3 0261266E+03 0.1392F +00 0.1089E-01 O.77T69E-0)} O-LOISE+02 O0.1000E+0) 
4 0.1213F+03 06.23206+00 02.3155E-01 O-1335F+00 O-LOLSE+U2 0.1000E+0) 
5 0211396403 06.324B8F+00 0.6164E-01 04618390F+00 O-LOISE+U2 O.1000E+0) 
6 0.1N46E+03 O44176F400 O0-1906E+00 0.2766F+00 O-JO1SE+02 U.LO00E+0) 
7 O0.9416E+02 0.651046F 400 0.41472E 400 0.2629F£400 O-L0ISE*+U2 O.1000E+0) 
8 068772E*+02 0.6032F6+00 O-2NLIE*00 O-2918F +00 OJOISE*U2 0.1000E+0)} 
9 0.7084E+02 0-6960F +00 O-2611E+00 0463123F*00 O-1015E+U2 GL1O00E+0] 
10 0.5927E+02 0.788BE+400 0.3749E+00 0.463225F+00 O-101DE+*02 O.1000E+0} 
Li 0.4844E£+02 0.88166200 O-3911E+00 0.32216+00 OL 015SE+02? O.1000E+0} 
12 0.3855E¢02 0.9744F 900 0.4584E+00 063109F+00 O-1015E*02 O.L000F+0} 
13. 0.299PF en? 0.10676 +0) 0.4.5747£+00 0-2RAKF +00 O-LOISE+U2 OL000FE+01 


0.51043 
1243446 
2236656 


0.60323 
1.53127 
2045940 


0469604 
1.62407 


AT THE END OF CALCULATION 


R/RI 
0-6144E+01 
0.6144E+01 
026063E +01 
0.5881E+01 
0.5621E+01 
0.5292E+01 
0.4908E +0} 
024475E+01 
0-4005E+01 
0-3526E+01 
0.3053E+01° 
0.2593E+01 
0.2164E+01 


cP 
0,.1628E+01 
0.1828E+01 
0.1794E+0)1 
0.1718E+01 
0.1612E+01 
0,1480E+01 
0.1331E+01 
O.L167E «01 
0.997TTE+00 
0.8324E6+00 
0.6777E+00 
0.9364E+00 
0.41 31E+00 


x 


0-1077E-02- 


Oe LOTTE-02 
0-9680E-02 
0-2681E-01 
02.5233E-01 
0-8600E-0) 
001275E+00 
021766E+00 
0.6a2328E+00 
0-2955E +00 
0¢3644E +00 
0-436/7t+00 


0-5] 7HE+00 


0.78884 
1.71687 


Y 
0.4640E-01 
0.4640E-0) 
0.)388E+00 
0.-2300£+00 
0.3192E+00 
0.4057E6+00 
0.4887E+00 
0.5675E+00 
0.6414E+00 
0-7097TE+00 
0.7720E+00 
0.8276E+00 
O.-B761E*00 


0.88164 
1.80968 


EI/ELINF 
0.2099E+02 
0.2099E+02 
0.2088E+02 
0.2062E+02 
0.2025E+02 
O.} 97TTE+O02 
Oe-1918E+02 
0.1849E+02 
0e-1769E+02 
0.160H1E+02 
Oe L5H7TE+02 
0.14866+02 
0.1, 383E+02 
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0,-304BE+01 
0.3320E+01 
0.23535E+0) 
Oe 3TI5SE+O1 
0-4019E+01 
064260E+0) 
02-4547¢E+01 
0.4824E+¢01 


O.1744E+00 Oc B5IE+01 OJ1879E+0)} 
O.148HE*00 OoAl32E+O] O.1946E +0) 
Q0.1305E+00 O62474E+0) 0.2105E+0) 
On. 185E+00 Oe2614E+O)] 0.621446 +01 
O0.1093£+00 O.2754E+01 O.2141E+0) 
0.1012F+00 0.2892E+0)] O-2217E+01 


CP 


x 


Y 


0.16736 +01-0.12536+00-0.5227E-01 
O-1673E+01-0-1253E6+00 0,5227E-01 
0,1651£+01-0-1158E+00 0.1564E+00 
0. 1604E+01-0.1007E6+00 0.2602E+00 
0,1538£+01-0.7406E-01 0.3618E+00 
O-1458E+01~0.4277E-01 024629E+00 
0,.1368E+01 044200t-03 0.5599E+00 
0.1268E+01 Oe47TB0E-0)1 0.65603E+00 
O.}160E+01 0410266400 0.7501E+00 
0,10546+01 021664E+00 0.9398E+00 
0.9538E+00 0462372E+00 0.9264F+00 
0.8541E+00 O.31L10F+00 0.1016F+0) 
0.7613E+00 063970E+00 0.1095E+0) 
0.6773E+00 02468666+00 OJ LH0E+0) 
0.6002E+00 065862E+00 0.21259E+0)1 
0.5315F+00 0.6937E+00 0.1340E+01 
0.4692E+00 0-81166+00 0.1421E+0)} 
0.4128E+00 0694136+00 0.1504E+0} 
0.3631E+00 021085F+0] 0,1585E+0)] 
0.-3184E+00 O6124HE+01 0.1676E+01 
0.2786E+00 OF1431E+01 041764E+0) 
0.24276+00 G-1644E+0)] 0.1 866E+90)} 
0.2094E+00 061895E+¢0] 0.1976E+0) 
0.1807E+00 022196E+0)] 0.2098E+0) 
0.1607E+00 062564E+01 O02.2233E+01 
O-1480E+00 Oe271L1E+01 0.2282E+0)} 
0.1386E+00 O.2857E*01 0.2328E+0) 
0.1303E+00 0-.3001E+01 0.2373E*0)1 


cP 


x 


Y 


0.1646E+01-0-1364HE*00-0-5201E-0)} 
0.1646£+01°0-1368E+00 0.5261E-0) 
0,.1628E+01-0.1272E+00 0.1580E+00 
0,.1586E+01-0-1123E+00 0.2629F+00 
0.15246+01-°0.8555E-01 0.3657E+00 
O0,-1450E+01“0.544HE-01 O064651E6400 
0, L36B8E+Ol“OeLIIGE-01 0-.5664E+00 
O.1I273E+01 02e3609E-01 0.6643£+00 
O-LI72E+01 O-90BIE-01 0.7600E+00 
0,1076E+01 0215466200 0.8517E+00 
0.9814E+00 04622566+00 0.9404F+00 
0.8872E+00 0.2994E+00 0.J033E+0} 
0,4H008E+00 0638616700 O-1L115E+0) 
6.72186 +00 024762E+00 0.1204E+¢0} 
0.6485E+00 OeS770E+*00 O12H7E+0) 
0.5821E+00 0.68616+00 0.13/74E+01 
0.5213E+00 0.8064F+00 0.1460E+0) 
0.4660E+00 0293966°00 0.)550F+0) 
0.4162E+00 O-1088F6+01 0.1639F+0} 
Oe 3ITO9E+OO OF L257E+0) O061739E+0) 
0.3294E+00 O-1448E°01 021836E+0) 
0.2902E +00 Oe L673E+01 0.6.1950E+0) 
0.25316+00 0261939E+01 0.2073E+0) 
O.2218E+00 0642260E+01 0. 2210E+01 


0.5012E+0) 
0.4570E+01 
02.4262E +01 
0.4090E+01 
0.3959E+¢01 
0.3829E+01 


EI/EIINF 
0.20456+02 
0.2045E +02 
0.2023E+02 
02.1976E+02 
0.1)908E+02 
0.1826E+«02 
Oe.1732E+02 
0-1627E +02 
O-1S518E+02 
0.)408E+02 
0-1] 300E+02 
O-LI9TE+02 
Oe1LLOIE+02 
0.1009E+02 
0.9258E+01 
0.8485E+01 
0.7782E+01 
0.7138E+01 
0.6538E+01 
0.5988E+01 
Oe54&71E+01 
0.4972E+01 
0.4502E +01 
0.4093E+¢0)] 
0.3808E+0)] 
0.3643F +0) 
0e3519E+01 
0.-3399E+01 


EI/ETINF 
0.2034E+02 
0.2034E+02 
0.2013E+02 
0.1964E+02 
O0.}891E+02 
0.18306E+02 
02.1709E+02 
0.1598E+¢02 
0.1481E+02 
0.1369E+02 
0.1259E+02 
O-}149E+02 
0.1048E +02 
0.9556E +01 
0.8701E +0) 
0.7926E+01 
0.7216E+0) 
0.6571E+01 
0.5989E+01 
0.5460E+01 
0.4975E+01 
0.4517E+01 
0.40836+01 
O-3717E+0) 
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Go-V 


NORMALTZ7EN DISTANCE FROM BODY TO S40CK 


STAGNATTON PRESSURE PT= 


STARTING SOLUTION WAS READ FROM TAPE 


ARC LENGTH 


SECOND INDFX= 


ist P/PTUNF 


0-LISSE+N2= 


i 

P NeLISSF +N? 
3 O061}4NF +02 
4 O0.1107F+2 
5 NeLNSTF ene 
6 1,.9944F en) 
7 0,97°14F 4) 
8B 0.8404F +01 
9 0.7T549F +0) 
1N O0.6ATAF +N) 
1} 0.5804F 0} 
12 Ne ADT4F se 01 
13 0.4195F +n) 
14 0,3482F onl 
16 0.7A°GIF- 8} 
17 O.VAALE 2, 
18 9,14274F +0) 
19 VeVEAywef} 
20 0,8999F +00 
21 9,8354F 400 
22 0,8347F +00 
23 0,8379F +00 
C4 0,8427F +00 
25 0,.8469F +00 
SECOND INODFXs 
IST P/PINF 
1 O.1ISAF eH? 
2 Oe 1LISAF¢N2 
3 O.114NFen2 
4 OJ] 1N7F +92 
5 H,INSTF en? 
h 0-99644F on] 
T O0,9A14F en} 
8 0.840N4F 401 
9 0.7549F +01 
0 


10 0.66773F +01 


Nn.NnAgogan 


0.0;055T 
12125395 
9.877885 


11.6026 


0.94245 
0.89127 
1.74015 


1 


S$ U/QINF 
0.4245F "01 0-0000E+00 
024745F-01 0.0N00E+00 
Ne17?73F 400 O.0000E+00 
0.7122F+00 0,0N00E+00 
0.29T7T1F +00 6-0000E6+00 
0.7A20F +400 0.0H00E+00 
0.4669F400 0.0N00E+00 
0-551 7F+00 0.0000£700 
O0-6366F 400 0-0N00E+00 
0.7715F¢00 0-0N00E+00 
0.AD64F 400 0.0N00E+00 
N.8913°400 0.0N00F+00 
N.9767F400 02-0N00F +00 
H.1O6)F*01 O6-0N00E+00 
Holjssr roa 0-0N000F +00 
Hebesve*Or 0.0000E6+00 
weir . “OL 0-0ND0E+00 
9.1401)F4«01 0-0N00F +00 
Ne LSASF ON] O,0HONF +08 
He157OF*O)] O0-.0000E+00 
0.1655F+01 0.0000E+00 
Oo. 17T40F +0} 0.0000E+00 
0.1825F +01 0.-0000F+00 
He1LILOF 401 0.0H00E+00 
0.1995F +01 0.0000£+00 


2 


RO/RINF U/QINF 


0.000778 


O.0TI7S/ 
0.157734 
1.000000 


0.12733 
0.97616 
1.82506 


V/QINF 
0-0000F +00 
0-0000F +00 
O6-0N000F +00 
0.49N00F +00 
0 O000F +00 
0.-0000F +00 
0.-0000F+00 
0.0000F +00 
0-ON00E +00 
Ne ONNDE +00 
0-0000F +00 
0-0000F +06 
0.0000F +00 
0-0N00F +00 
0,.0000F+60 
0-0N00F +00 
0-0N00F 400 
0-0000F +00 
0-0nN00F +006 
G-0N00F +00 
0-00N00F +00 
0.0000F +00 
0.0000F +00 
0-0000F 400 
0.0N00F +00 


V/OINF 


Oe424NF 401 06546246 -04-021196F-02 


He S240F 40] 0,.54674E-04 
Oo 4177F 40) 0.4935F-03 
O024061F401 0.1289F-02 
Ne 3IBBTF+N] O0.2509F=-02 
Ne 3667F4+0)} O464063E-02 
6.2.340393F40} 0.5983E-02 
02312315001 0.8256F-02 
0.7916°*01 0.1083F-6) 
0:7502F¢01 0.-1366F-0) 


0e1196F-02 
0.3536F-02 
0.5825F-02 
0.-80S51F +02 
0-1005F-01 
Oe L1S4F=-0!} 
061338F-0) 
021462F-0) 
021550F-01 


0.006%? 


0,017794 
0.19747] 


0.21222 
1.06104 
1.90997 


S/SINF 
02e159392E+0} 
021592E+01 
0.1540E+0)} 
021556E+0} 
0-15B0E+0) 
0-1613E+9] 
021666E+0) 
OeL708E+U} 
Oel77T2ZE+U1 
001949EF+0)} 
02-1939E¢0) 
022046E +0) 
OeL2ITOE+U} 
002315640] 
0.2483E+0} 
0e2678E+01 
0e2904E+0} 
0.31696 +01 
063463F #0) 
0.3704E+0) 
6-3506E+0)] 
0e3921E+0) 
Oe ISLTE+0) 
063812E+0) 
0-3806E+0)} 


S/7SINF 
021532E+0} 
021532E+0} 
Oe15H0E+0) 
6-1556E+0} 
O0e1560E+0} 
0-1613E+0) 
021555E +0} 
O.1708F +0} 
O061772E+0) 
0e6134BE+01 


0.001086 


VeVEEYDS4 
0.245623 


0.29710 
1014592 
1.99487 


0.001664 
02029509 
0.303964 


0.38198 
1.23980 


HT/HT INE 
0.10016+¢01 
O0.1OO01E+0) 
0.9998F +00 
0.9987E+00 
0.9966E+00 
0.9940£406 
0.9908F +00 
0.9870E+00 
0.9826E+00 
O.97TTTE+ON 
0.9722E+00 
0.9664F +00 
0.9601F +00 
0.9534E+00 
0.9465F+00 
0.9389F +00 
0.9312E700 
0.9239F+00 
0.9154F¢00 
0.9060£F+00 
0.9043£+00 
0.9065E+00 
0.9070E+00 
0.9075E+00 
0.9080E+00 


HT/HTINF 
O.1001F+0} 
O.1001E+01 
0.9998E+00 
0.9987TE+00 
0.9966E+00 
0.9940E+00 
0.9908EF+00 
0.9870E+00 
0.9827TE+00 
0,97TTE*00 


0.002404 0.003347 
O.U3Sf(423 O24 346 
02372862 0+453207 
02466486 0.55175 
1231569 1.40057 
R/RI CP 


0e4240E¢01 0.1748E+01 
004240E+01 O1748E+01 
O.4177E+01 O01 716E+02 
O0e4061E*01 0.1664E+0) 
0.3887E*01 0,1582E+01 
0.3666E401 0.1478EF+01 
0.3408E+01 0,1358E+0) 
O-3IZIE*Ol 0,1224E+0) 
0228156401 0.1082E+01 
Oe2501E+01 0,9376E+00 
O-2149E+01 0,7944E+00 
0-1886E+01 0,6569£+00 
O.1601F+01 0,52816+00 
061339E+0} 0.4104E6+00 
0-11036£+0)1 0.3057E+00 
0.8950E+00 0,2137E+00 
0.71656+00 0.1356E+00 
0.5647t+00 0.7002E~01 
004461 7E+0G O.LTOTE-01 
0.36406+00-0,1654E-01 
02.3385E*?00-0,2720E-01 
0.3373E+00-0.2738E-01 
0.3386£+00-0,2679E-01 
0-3401F+00-0,2609EF-01 
0-3418E+00-0,2530E-01 


MACH CP: 
Oo21Z1E-02 O1748E+01 
O-2131E-02 0.1748E+01 
O066341E-02 O0,1718E+0) 
0.1063E-01 0,1664E+01 
0.1}503E-01 0.1582E<+01 
0-1936E-01 0,1478E+01 
O.2372E-01 0,1358E+01 
O0.2617E-01 0,1224E+61 
0.3267E-01 0,1082E+0) 
O.3719E-01 0,9376£+00 


02004552 
UeVolocy 
02545001 


0.006089 
JeV)or249 
30646573 


0.63663 
1248545 


0.72151 
1.57033 


x Y 
0-9010E-03-0.42446E-0)} 
O0-9OLIOE“03 0.4244E-0) 
O0-8100E-02 0.1270E+00 
0e2244E-01 O.2107E+00 
0e4383E-01 0.2928E+00 
0e7211E-01 0.3729E+«00 
Oe LOTIE+00 0.4602E+00 
001485E+00 0.524356+00 
0-1960E+00 0.594%6E+00 
0e2493E+00 046607£+00 
0-3081E+00 0.7220E+00 
0-3718£+00 0.7780E+00 
0.4400E+00 0.8285E+00 
025123E+00 0.393730E+00 
O0-S5B8B1E+*00 O.9112E+00 
026669E+00 0.9429E+00 
0.7480E+00 0.9677E+00 
O+.8310E+00 029856E+00 
OeDLS2E+00 049964E+00 


O-1000EF+01 0.1000E+0) 
0-1085E+6) O01 000E+0) 
O-1170E+01 0.1000E+01 
061255£+0} 0.1000E+01 
GeL340E*O] OF O00E+9] 
021425E+0] O0.1000E+0} 


x Y 
0-8400E-03-0.4244E-0} 
0-8400E=-03 02-4¢2446E-0) 
068038E-02 0.1270E+00 
062238E-01 0.2107E+00 
OoAITTE=01 0.2928E+00 
0-7205E-01 0.3729E+00 
Oo 1070E+00 0.4602E+00 
021484E6+00 0.5243E+00 
Ool959E+00 0.5947E+00 
062493E700 0.6607E+00 


0.00A051 
UeUyycol 
0.759352 


0.80639 
1265524 


EI/ELINF 
0.2731E+01 
Oe2731E+0) 
O-2728E+0) 
0.2725E+01 
0.2719E+01 
Oe-2712E¢01 
0.-2704E+01 
0.2693€+0)] 
0.2681E+01 
0.2668E+0)] 
0.2653E+01 
0.2637E401 
0.2620E+01 
0.2601E+0) 
0.2583E+01) 
022562E +01 
02.2541E+0) 
0.2521E+01 
0.24¢98E+01 


0.24¢72E+01 
0.2468E +0) 
O.2474E+01 
0.2475E+01 
0.2476E+01 
0.2478E+01 


EI/ELINF 
O.2731E+01 
O0.2731E+01 
0.2728E +01 
O0.2e7T25E+0)1 
0.2719E+01 
0.2712E+01 
0.2703€+01 
0.2693E+01 
0.2681E01 
0.2667E+01 
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10*361tS2°0 
10*32662°0 
16+3S5952°0 
10+39952°0 
T0*3L092°0 
10*3925¢°0 
T0*3%%G92°0 
TO*+3T992°0 
10¢39292°0 
10°36992°0 
10*30022°0 
TO*30TL2°O 
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APPENDIX B 


STARTING PLANE FLOWFIELD CODE 
B.1 SPECIAL REQUIREMENTS 


The SWINT Code requires the user to furnish force and moment information 
for the blunt nose cap ahead of the starting plane. The force and moment 
components are integrated from the surface pressure distribution over the 
spherical cap in the body oriented coordinate system as shown in Figure B-1 
as follows: i 


X = Ry (1-cose ) 


rad 
iE 


Rysine cost 


™ 
| 


= Ry sing SIN Z 
Py =p cosé 


== D Sing COSz 


aaa 
~< 
i 


Pp = -P Sine sinz 


6 
F, = (3 f p,(Rysinedz ) (RNde ) 


wee On 
My = j f (p7Y ~ PyZ) (Rys ine dz ) (Ride ) 


6 
My = s* f (PyZ ~ P7X) (Rysineds) (Ryd) 


Oot én 
M7 = Lf (pyX = pyY) (Rysineds) (Ryde 
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where . 

Oe = cos 
In the program, 10 points were used between 6 = 0 and 6_,, and 36 points were 
used for the circumferential integration using the trapesoidal rule. In 
addition, all flow field properties, forces and moments are dimensionalized by 
their respective reference values. 


2 ns 


Furthermore, for the PNS code, some times information for two initial 
plane flowfields must be provided. This feature is self contained in this 
program. 


Ee 


FIGURE B-1. DEFINITION OF FORCE AND MOMENT 
B.2 INPUT-OUTPUT PARAMETERS 
a. Tapes 


Tape 1 is used for read in data of the axisymmetric flowfield 
obtained in Appendix A. 
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Tape 2 is used for storing the starting plane flowfield to be used 
in the afterbody flowfield calculation. User may change the format in order 
to fit the afterbody code. 


b. Namelist INPUT 


Parameter Description Default Value 
ALPHAD - Angle of attack in degrees None 

BE TAD - Angle of yaw in degrees None 

CE - Stretching parameter for the 10000, 


distribution of points between 

the body and the shock. For 

uniform distribution, let CF = 10000; 

for viscous flow, 1.0 < CF<1.005 

(See Reference B-1 for the stretching function) 


DINF - Free stream density ] .QE-05 


LC - Control parameter: 1 for SWINT code l 
with force and moment integration; 
2 for PNS code with two starting plane 
Flowfields. 


MMAX - Maximum number of stations in the None 
circumferential direction (z direction) 
on the starting plane such that az 
is a fraction of +. MMAX must be an 
even number for nonsymmetric cases and 
and odd number for symmetric cases. 


NMAX - Maximum number of points between None 
the shock and the body on the 
Starting plane. 


NST - 0 for automatic attempt to 0 
optimize ZST 1, choose your own ZST. 

PINF - Free stream pressure 1.0 

RN2 - Reference (dimensional) spherical Te) 


nose radius. 


SYM - 0 for symmetrical case QO 
1 for non-symmetrical case 

THCOND - Half cone angle in degrees None 
of the afterbody at the sphere 
juncture. 
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THMAXD - Maximum angle in degrees computed None 
for the unit sphere solution. 


ZEST - Location of the starting plane ae 
from the tip along the body axis. 
Automated if NST = 0; chosen if 
NST = 1. (Note: ZST = Kor in Figure 1 of the 
main text. 


c. Output information 


In the output listing, the input data are first printed followed by the 
modified value of the starting plane location. Next, the effective angle of 
attack, its angle in circumferential direction and the normalized distance 
between the body and the shock are printed followed by the starting plane 
Flowfield. The flow variables are printed along each circumferential station 
Starting from the leeward side for PNS and the windward side for SWINT. The 
angle ¢ and the shock distance from the body axis are given first, two tables 
of flowfield information, each for the cartesian coordinate and cylindrical 
coordinate are displayed next. It should be noted, however, that the use of 
different coordinate systems only change the velocity components. The spatial 
variables, X, Y, Z and R, the density p, the pressure, P, the total energy per 
unit volume e, and the velocity components, u, v, and w, are all in 
dimensional form. 


B.3 SPHERICALLY BLUNT-NOSED CONE SAMPLE CASE 


Provided is a description of the sphere-cone interface geometry 
and the input cards used to execute this validation case given in 
Section 3.3. Initially, the NOSETIP code was utilized to generate the 
starting spherical flowfield. Next, the interface program supplied the 
necessary starting plane flowfield with the adjustment for the angle of 
attack, angle of yaw and cone angle. Finally, the remainder of the cone 
was calculated using SWINT. 


Configuration - Spherically blunt-nosed cone with a sphere radius of 1.0 
and a cone angle of 20°. 


Test Conditions - Me = 3,5, q = 59, g = 00 
Po = 1.0, p = 1.0£-05 
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NOSTIP CODE INPUT 


The NOSTIP code for this case, required the following input which is 
formatted in Section B.2. 


Card 1 
XMACH = 3.5 
™ = 125, 
JMAX = 28 
KMAX = 13 
JNM = 25 
ITER = 350 
IR] = 
tWw2 = 1] 


At the completion of the run, TAPE2 must be saved to restart the 
interface program. 


INTERFACE CODE INPUT 
The interface code required the following input from the namelist, 


INPUT. In addition, the starting flowfield from the NOSTIP code must be 
accessed by reading TAPE1L. 


$ INPUT 

ALPHAD = 5., 
BETAD = 0., 
DINF = .00001, 
PINF = 1.0, 
NMAX = 12, 
MMAX = 7, 

SYM = 0., 


THCOND = 20.0, 
THMAXD = 125.0, 


NST = 0, 
RN2 = 1.0, 
$ END 
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At the completion of the interface run, TAPE2 must be saved to 
restart the remaining calculations. 


SWINT CODE INPUT 


In order to exercise SWINT, a description of the body geometry was 
needed. The following equations were encoded: 


_ WRNo - (RN - z)° 


b, = (RN = z)/b OGceaze< 7 C 
b _-l 1 rr (RN-z) ] 

ZZ 

b 
= (px ifOc) RN + 2 tan o 
O86 

b = tan @ Zur ezZ 
Z C Cc 
b = 0 
74F h 
by = D 64 = 0 \ all z 


The input ident for the geometry to SWINT is: 


> TDENGEBCONE 
*“] “BODN co 


Ceo... GEOMETRY FOR A BLUNT NOSE CONE WITH NOSE RADIUS OF 1. 
THETAC = 20. 
RN = 1. 
THETAC = THETAC * PI/180 
ZC = RN * (1.-SIN(THETAC) ) 
IF(Z.GE.ZC) GO TO 100 


AA = SQRT(RN**2 - (RN-Z)**2) 

B(M) = AA 

BZ(M) = (RN~Z)/AA 

BZZ(M) = -1./AA-( (RN-Z)**2) /AA**3 
GO TO 150 


100 CONTINUE 


B(M) = RN*(1.-SIN(THETAC))/COS(THETAC) + TAN(THETAC)*Z 
BZ(M) = TAN(THETAC) 
BZZ(M) = 0.0 


150 CONTINUE 
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The calculations were carried out for a distance of 80 nose radii 
downstream. The initial starting plane generated by the interface code 
was accessed by reading TAPE3. The following cards were entered from 
namelists, INPUT1 and OUTRD: 


$ INPUT1 
ZEND = 80.0 
$ END 
$ OUTRD 
KOUT(1) = 100 
$ END 


At the completion of the run, TAPE17 was saved to allow to restart. 


B.4 COMPUTER PROGRAM 


A listing of the starting plane flowfield program is given below. A 
detailed print out of the flowfield for the cases computed follow the 


listing of program. 


NSWC TR 84-484 
STARTING PLANE FLOWFIELD CODE LISTING 


mom 


MI NAOMAAMANANAAANAAANANAN 


OMA MOO 


PROGRAM SPEICINPUTs CUT PUTs TAPESSINPUTs TAPEGBSUUTPUT sTAPEL Ss TAPE2) SPFI 
COMMON/SPFL/IMAXs KMAXe XMACHs GAMPNMAXS MMAX ~ S PFI 
COMMON/ SPF2/X630 925) 9190630925) 90630225)99( 3002594) 2ET (25) SPFI 
COMMON/SPFS/XSPCZ23e LS) oVSPC 23x LSD oe LZSPK 239 LSD DESP( 23915)» SPFI 
LUSP( 23915) 9 VSP(23915) 9 WSP( 23915) 9 PSPC 23915) RSPC23915) SPFI 
2eAM( 230 LSI PRSCZ3PLSI oTHS (23915) sURV 23515) pWRI 23515) 5 WRI 23915) SPF 
DIMENSION XKEX( 3092552) 9XEV( 3992592 )eTHU30) SPFI 
DIMENSION RSTI2Z3)s PHLIC23) os CZE23)sCPHI(235)5CXC3) SPFI 
OIMENSION 6(23)662(23) »GPHI(23) , SpFI 
DIMENSION RDO( 15923) 2 UD (15923) 2 VO(L 5923) eo WD(15923)5PD015923)> SPFI 
100(15523)9RC63)5C023)5ANU(15523) SPFI 
DIMENSION PX(LOs 37) pPPY( LO, 37 gPZCLO*STIOXICLOs 37s VICLOs 37d» ZIC10 SPFI 
1937) ,AA(10)28B (16) 9SCC1L0) »SOC1LO) »SECLOIsSFC LON es STHL10) SPFI 
DATA XI eV¥IsZI/1LLiGeue/ S PFI 
OATA RNPRNZ/2F1207 SPFI 
DATA PINFsDINF/1<09-00001/ SPFI 
DATA NSTsZST/091-0/ SPFI 
DATA CF/LO0COOe/ > SYM/0/ aL C/1/ SPFI 
SPFI 

NAMELIST /INPUT/ SPFI 
1 LC» PINE, DINFs RN2Z9SYMNs THCONOy THMAXDe MMAXONMAXDZST NST SPFI 
2 ALPHADs SETA CF SPFI 
SPFI 

SPFI 

READ( 5, INPUT) SPFI 
akKITE (Os INPUT) SPFI 
SPFI 

SPFI 

PINE AND DINF ARE THE FREE STREAM PRESSURE ANDO DENSITYsRESPECTIVEL SPFI 
SPFI 

RN LS THE UNIT RADIUS GF THE SPHERE SPFI 
RN2 IS THE DIMENSIONAL RADIUS OF THE SPHERE aa 
. SPFI 

THCOND = THE HALF CONE ANGLE OF THE AFTERBCDY, SPFI 
THMAXD ® THE MAXIMUM ANGLE COMPUTED FOR THE UNIT SPHERE SOLUTION SPFI 
(cQOTH ARE IN DEGREES) SPFI 

SPFI 

tCel FGR INVISCID SwINT CODE» #2 FOR VISCCUS PNS CCOE SpFI 
SYM2O0 FOR ZERO YAws S10 FOR ASYMMETRIC FLOW SPFI 
SPFI 

JMAX IS THE MAXIMUM NUMBER OF POINTS IN STREAMWISE OIRECTION SPFS 
KMAX ITS THE MAXIMUM NUMBER OF POINTS BETWEEN BOOY ANO SHOCK SPFI 
XMACH IS THE FREESTREAM MACH NUMBER SPFI 
GAM I35 SPECIFIC HeAT RATIO S PFI 
SPFI 

READ FLOWFIELD DATA SPFI 
READ(L) JMAXrKMAXs XMACHsGAMs ITs TAUs SPFI 
ye COXC Se Kb a dela IMAX) eK ALS KMAX) » SPFI 
i CLV Eda K) a StL oI MAX) sKeLsKMAX)» SPFI 
1 CODCS pK) pcaloSMAX) sKeleKRAX)» SPFI 
1 COUXEXC Sp Kondo dela IMAX) o KO LeK MAX) »N8192)» SPFI 
1 COOXEY CS aK oN)» dele SHAK) pKaLeK MAK) sNel52)2 SPFI 
l CCCQC Sa K aN) UELs SMAX) Kalo KMAX) SNOL D4) SPFI 
A@RITE( 62205) XMACHs GAMs JMAXSKAAX SPFI 
205 FGRMAT( #1 %»* MACH NUMBER & eepF5o02009% SPECIFIC HEAT RATIO & %y SPFI 
1 F5.29/9% SMAX = %,15510X9% KMAX & 515) SPFI 
wRITE(6,209) LCep PINE sOINF a RN2e9 SVMs THCONDs THMAXD Pars 
PFI 

MMAX IS THE MAXIMUM NUMBER OF POINTS IN CIRCUMFERENTIAL OLR SPFI 
NMAX 1S THE MAXIMUN MUMBER OF POINTS IN RADIAL DIRECTION SPFI 
ZST IS THE STARTING PLANE LOCATION S PFI 
ALPHAD IS THE ANGLE OF ATTACK IN DEGREES SPFI 
BETAD 2S THE ANGLE OF YAW IN DEGREES SPFI 
CF IS THE STRETCHING FUNCTION COEFFICIENT USED IN THE NOSETIP SPFI 
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CODEscesee VISCOUS CODE INTERFACE = 1.0 


olT. CF elTe 1205 


ececseelINVISCID CODE INTERFACE = CF.GT.1000. 
(CF CLOSER TO 1-0 CLUSTERS MORE POINTS NEAR SURFACE) 


NST = Os FOR AUTOMATIC ATTEMPT TO ee Chie ZsT 


= lsCHOOSE YOUR OWN ZST 


209 FORMAT(* LCaes 17 eset PINE@%sF10.4e/0% DINFe#sFi2ebyl» 
L® RNZ2=8sFl1OeGs s/o * SYM*#eF 1004, />*% CONE HALF ANGLE @ @pF1lOc4Go/> 
2* MAXIMUM ANGLE FGR UNIT SPHERE SOLUTION = #59F10.4) 


20 


25 


302 FURMAT(/)* 


303 


300 FURMAT(/5# 


‘2 


22 
21 


2 
3 


wRITEC(62101) ZSTsALPHADs BETADs NMAX» MMAXDCE 

LOL FORMAT(*® STARTING LOCATION ZST#*sFo.30/5* ANGLE OF ATTACK IN 

LOEGREE © oF R.3e/y* ANGLE OF YAW IN DEGREE = %,F8.39/5% STARTING P 

LANE McSH DISTRIBURION, NMAX(BETWEEN BODY AND SHOCK) = B51 55 By 
MMAX(CIRCUMFERENTIAL DIRECTION) © *y155/5% CF = #,F10.4) 


PI = 4,0*ATAN(1.0) 

PIRAD = PI/180. 

THMAX #THMAXD*PIRAD 
TFINST.NE.L)IGO TO 20 

JSIGN#®# THYCOND 
JSIGN®ISIGNONST,JSIGN) 

THZST = ASINGIJSIGN®(1.0=ZST/RN2)) 
THZSTO = THZST/PIRAD 

IF (THZSTO.GEeTHCOND)GO TO 303 
GO TO 25 

CONTINUE 

ZSTFRN28(1LSIN( THCOND®PIRAD) } 
ZST#*ZST—.00LSRN2 

GO TO 303 

CONTINUE 

WRITE (69302) 


ZST 15 TOO LARGE AND I[S BEYGND SPHERE BODY INTERFACE 


lL ®e/eGHeeee,ePLEASE SELECT A SMALLER VALUE UF ZST#,4HEee8) : 


3 


STGP "8ad VALUE GF ZST® 
CCNTINUE 
eR LFe(¢s,3GO)dZ35T 


£PS11s5) 
CXCLIEZST/RNZ+0.058R2N 
CxXC2]ZST/RN2-0.05*RN 
Cx(3)eZST/RN2 
Du 21 Jaleo JMAK 
OXB ABS OK Sell meX( Se KMAX)) 
IF(DX-LT20.00C1) GG TO 23 


MOOLFIED VALUE JF STARTING PLANE LOCATIONeeoZST = €» 


THISD SATAN CYC Uo KMAXIRV Ode LIDS ONC Jo Lb x Ody KMAX))) 
TF CTH Jd eh Teds AND oJ eGT 02) THC J) mPIL+TH( Ss) 


GU TO 21 

THIJS) 280.5¢P] 
CONTINUE 
ALPHA@ALPHAD*®PI/180. 
DPHI®PI/MMAX*®2, 
PHI#0. 

Ca=COS( ALPHA) 
SAeSINC ALPHA) 
BcTAsBETADSPI/186. 
CeeCOS(BETA) 
Sd*®SIN(BETA) 
X1T*®#RN®(1.=-CA) 
YI*SRNSSAa 
XZ2"RN*CA*(1,~-C8) 
ZZ29°kKNECA¥SB 
AESSQORT(SA##2¢(CASSB) #82) 
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SPFI 
SPFI 
SPFI 
SPFI 
S PFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFEI 
SPFI 
SPFI 
SPFI 
SPFI 
SPF I 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPF I 
SPFI 
SPEI 
SPFI 
SPFI 
SPFI 
SPFI 
SPI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
5S PFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 


66 
67 
68 
69 
70 
va 
72 
7a 
74 
75 
76 
7? 
78 
79 
80 
81 
82 
83 
84 
85 
Be 
87 
88 
69 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 

100 

101 

102 

103 

104 

1¢5 

106 

107 

108 

109 

110 

ws 

112 

113 

114 

115 

116 

117 

118 

119 

120 

23 

122 

123 

124 

125 

126 

127 

128 

129 
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ALPEESATAN(AE/(CASCH)) 
IFCALPHAEQ.0.ANDeSETA~EQ,O) GO TD 151 
PHMSPI=ASIN(CASSB/AE) 
TF(LCNE.1)GO To 152 
IFCALPHAD.LT.0.)G0 TO 152 
PHM=PIT=PHM 
IFC BETAD LT Oe) PHMS2.*PI+PHM 
GO TO 152 
151 PHM®O. 
152 CONTINUE 
ALEO@ALPEER57, 296 
PHNO®PHMN*57.296 
WRITE(6,107) ALEDsPHMO 
107 FORMAT(/»9* EFFECTIVE ANGLE OF ATTACK IN DEGREE = *5F6.25% AT CIR 
2CUMFERENTIAL ANGLE OF €)F602)% DEGREE®,//) 
202 FURMAT(10E12.4%) 
DG 75 Llhelstc 
IF(LC.EQ,2) WRITE(629103) 
203 FORMAT( #1858 SECOND STARTING PLANE FLOmFIELO FGR PNS CODE®,////) 
OO 1 Mal,» MMAX 
OETERMINE SHOCK LGCATICN FGR EACH PHI VALUE 
PHII (AM) sPRI 
Reak 
DRaRN 
SPa2SIN( PHI) 
CP#eCUS(PH]}) 
05 79 II#1,3 
RRaeRN 
DRaRN 
00 & I#1s6 
OO 5 NN#®15910 
XBeCx¢I1) 
Yd#RRecP 
ZaeRReSP 
XPaexBeX] 
YP2sv8¢Y1 
ZP2Z3 
XPP#exXPexX2 
YPPsYp 
ZPPalPeZ2 
ASexPpeCpeZPPeSs 
Y3sYPP 
Z3"XPPeSBeZPPsCa 
XPPeX3¥CASY3*SA 
YPPe-XZaeSarY3eCa 
ZPP2Z3 
XBAZKRNWXPP 
RBASSQRT(ZPPER2eYP Pee?) 
RIG®*SGRTICXBASR2+KRB ASS? ) 
PHBeASINCZPP/RBA) 
IFC YPP.LT 00.) PHBePI—=PHB 
CTAPASIN(GRBA/R QO) 
TF(XSAeLT Oe CTASPI-CTA 
IF(CTAOLT.THMAX)GO TO 305 
IFC(NSTEQ-1)60 TO 306 
ZST#ZST=.1*RN2 
WRITE( 65304) 
304 FORMAT(/5#% REGION OF INSUFFICIENT UNIT SPHERICAL SOLUTION ¢, 
l é5* SMALLER VALUE OF 2ST AUTOMATED #8) 
GO TO 303 
306 CONTINUE 
WRITE(65307) 
307 FORMAT(/5* REGION OF INSUFFICIENT UNIT SPHERICAL SGLUTION © » 
Ll /s*SELECT A SMALLER VALUE OF ZST GR RECALCULATE THE UNIT SPHERE 
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SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPEI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
$ PFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPEI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFEI 
SPEI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPEI 
SPFI 
SPFI 
SPFI 


130 
131 
132 
133 
134 
135 
136 
137 
136 
139 
140 
141 
142 
143 
144 
145 
146 
147 
168 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
1457 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
i738 
175 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 


Cc 


305 


Jc 
70 


72 
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ZSOULUTION WITH A LARGER VALUE OF THMAX ®) 


STCP "BAO VALUE GF ZST" 

CONTINUE 

COMPARE TO UNIT SPHERE SOLUTION 

DO 2 JalsJMAX 

IFCCTA.LY.TH(J))? GO TO 3 

JB Jo] 

JAaJ } 
RATIO#(CTA-$THIJBIIS( THI JAIM-THIU8)) 
RAASSORTC(RN=X( JAD KMAXDD F824 VI JAgK MAX) #2 ) 
RBBeSQRT((RN=X (CUB eK MAX) FEZ4V( SSK MAX) #82) 
RSS*RBB*RATIO*®(RAA~KGB) 

IFORSS-ROO) 33932331 

ReKSRR+DR 

CONTINUE 

IF(NN.GT.10) STOP 

RRBRR—DOR 

DR*Q0.140R 

RReRR+OR 

CINTINUE 

RSTCM)#SQRT(ROOF#2—( RNOZST/RN2) 8 #2) 

RC (CII) #RSTCM) 

C(M)2RST(S) 
CZCMI@CRCCLINARC(Z2))/(0.14RN) 

COMPUTE FLOw QUANTITIES AT SHOCK 
XSP(UMsoNMAX) SZST/RNZ 
YSP(M»NMAX) @RST CM) *CP 

ZSP( Ma NMAX} ARST(M) *SP 

NOaNMAX 

YEsYSP( MeN) 

ZaeZSP (MeN) 

RSCMeNDFSQORT(YS*4¢2¢Z23482) 

CALL ITPFCJAp UB, KMAX,RATIGS EI Ps RIP, UIPs VIPs PIP) 
AM(MaNMAXDBSSQRT(CCULPES2eV IP 882 SC GAMPPIP/RIP)) 
ESP{ Me NMAX)SEIP 

RSP(MsNMAX)BRIP 

PSP(MpNMAX)*8PIP 

UGsUulPp 

VoaVIP*COS( PHS) 

wSRVIP¥SIN(G PHB) 

U22uUGeC BeuGeS$a 

V22V% 

w2e-UStSBewoeCB 
USPOCM»sNMAX) BUZZ FCASVZESA 

VSP (MaNMAX) BUZBSACVZECA 

WSPCM»NMAX) aW2 

N@NMAX 

USDsUSPCUM»N) 

V308VSP( Msn) 

W30ewWwSP (MeN) 

UR (M,N) 230 

VROMeN) SV3D8CP4ed30*SP 

ARI MeN) sw3DeCP-V30SP 

AMUC Ma NMAX)BSORT(USDSF2/(GAM*FPIP/RIP) ) 
PHI ®PHI*OPHI 

CONTINUE 

CPHI(MMAX41L )*=CPHI(1) 
CPHICLIEOCRSTICZ RST CMM AXI ID /02.*DPHI RN) 
CPRHICMMAX) BCRSTILICRSTIUMMAX—-1))/(62.*#0PHI*RN) 
MMLSEMMAX=] 

DQ 72 I[a2,"Al 
CPHICTISCRSTCLelIeRSTCITa1)9/702.*0PHI) 
CONTINUE 

IFCSYMLNE2O) GO TG 73 


SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
S PFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SpFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
S PFI 
SpFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 


194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
Cle 
aus 
e14% 
215 
216 
217 
212 
219 
220 
221i 
ac 
223 
224% 
225 
226 
227 
228 
229 
230 
ek 
és¢ 
Zi 
234 
ra 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
25¢C 
251 
252 
253 
254 
255 
256 
257 
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CPHI(1) #0. SPFI 258 
CPHI(MMAX)#0. SPFI 259 
73 CONTINUE SPFI 260 
INTERPOLATE STARTING PLANE PLOWFTELO SPFI 26) 
WRITE( 62402) SPFI 262 
402 FORMAT(*® NORMALIZED DISTANCE BETWEEN BODY AND SHOCK#) S PFI 263 
CALL ETATBC ET» CFs NMAX). SPEI 264 
WRITE( 62202) CET(K) sKelsNMAX) SPFI 265 
NM®NMAX=] : SPFI 266 
PHI #0. SPFI 267 
RMBSORT( 2ZeF#RNGZST/RN2Q—(ZST/RN2) ##2) SPFI 268 
DC & Mel» MMAX SPFI 269 
CPeCOSt( PHI) SPFI 270 
SPSSIN(PHI) SPFI 271 
DO 7 N®1lsNM SPFI 272 
RRaRMOE TIN SeCRSTCMI—RM) SPFI 273 
XBaeZST/RN2 SPFI 274 
YaoskR*CP SPFI 275 
Za2RR*SP SPFI 276 
RS(MoN) MSQRTCYS*#2478%82) SPFI 277 
XSP(M»N)2XB SPFI 278 
Y3SP(MsN) # YB SPFI 279 
ZSP(MeN) #28 SPFTI 2890 
XP=XB—-X] SPFI 281 
YP2Y3+Yl SPEI 282 
ZP2Z8 SPFI 233 
XPPeXPoX2 SPFI 284 
YpPp2YP SPFI 285 
ZPP#ZP—-Z2 SPFI 286 
X3exXPpeCd—ZPPSB SPFI 287 
Y3=YPP SPFI 283 
Z3axPP*SBeZPP%Ca SPFI 289 
XPPeXZeCaArV3eSa SPFI 239 
YPPe-x3Z#SA+V3¥Ca ; SPFI 291 
ZPP27Z3 SPFI 292 
XBAERN=@XPP SPFI 293 
RBABSCKT(ZPP#82eYPpee2 ) SPFI 294 
RGOBSORT(XBAeaZ2+RZA¥ #2 ) SPFI 295 
PROZASIN(ZPP/RBA) SPFI 296 
IFCYPPeL TeOe) PHS*PI—PHB SPF 297 
CTABASIN(RBA/ROG) *SPFI 298 
IF(XdAeLT.O) CTASPI-CTA SPFI 299 
00 8 J#l»JMAX SPFI 300 
B IF(CTA.LT.TH(J)) GU Ta S SPFI 301 
9 JatJ—-l SPFI 202 
JAzJ SPFI 303 
RATITOS(CTAmTH( Sd PSC THC JA) @-THO 8)? SPFI 304 
RITL#RN SPFI 305 
00 19 K*1l»KMAX SPFI 306 
RIBESSRT( (RNWX(IBSK DFE 24+ V (Sdn K) 882) SPFI 307 
RJABSORT CC RN@EX( JAK DD SECO JAK) 482) SPFI 308 
RIT#RIBeRATI De (RIA-RIB) - SPF 309 
IF(RIF.GTeROD) GO TO 8l a. SPFI 310 
RQ1TLeRIT SPFI 311 
10 CONTINUE SPFI 312 
61 KBsK=} SPFI 313 
KAeK SPF 314 
RATIOKS(ROOeRITLIS(C RI TORITI) SPFI 315 
CALL ITPF( SASS Be KADRATIGs cKAaRKAg BK Ay VK Ae PKA) SPFI 316 
IF (KB.EQ.0) GQ TO Qi SPFI 317 
CALL ITPFCJAs JBeKBa RATIGS EKG eo RKB se UKs VKEBs PKS) SPFI 316 
VITSVKBeRATIOK#( VKA-VKBE) SPFI 319 
ULTSUKB+RATIOKS( UKA-UKB) SPFI 320 
RIT@PRKBRATIOKS(RKAMRKB) SPFI 321 
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EITSEKBORATIOKS(EKA-EKB) SPFI 322 
PIT@PKB¢RATIIKS( PKA=PKB) SPFI 323 
sO TO 12 SPFI 324 
ll WIT#VKA SPFI 325 
UIT#UKA SPFI 326 
RIT#RKA SPFI 327 
EIT@EKA SPFI 328 
PIT@PKA SPF I 329 
12 CONTINUE SPFI 330 
UsaUlT SPFI 331 
VGeVIT#COS (PHB) SPFI 332 
€49VIT#SIN( PHS) SPFI 333 
UZBUGeC deweeSB SPFI 334 
VZ=2V4 SPFI 335 
W2EMUSES Bed4eC8 SPFI 336 
Y30 PUCFCA“VZR5SA SPFI 337 
¥30 BUZSSACVZ2SCA SPFI 338 
w3D0=W2 SPFI 339 
YR (MeN) #U39 SPFI 340 
VR(MoN}D ZV3Z08CPow3DeSP SPFI 341 
WRUMsN) eh 308CP-V3D8SP SPFI 342 
USP(MsN) #U30 SPFI 343 
VSP (MeN) #V30 SpFI 344 
WSP(M»N)2W3D SPFI 345 
RSP{MsN)#KIT SPFI 346 
ESP(MsN) FEIT ‘ SPFI 347 
PSP( MeN) SEIT SPFI 348 
AM( MOND =SQRT(C(UILT ee 2eyITee2)/(GAM#PIT/RIT)) SPFI 349 
AMUIMSNI SSSRTIUIDES2/( GAM*PIT/RIT)) SPFI 350 
IF(CF.LT.2.6) GOTO 7 SPFI 351 
IFCAMUC MeN) .GTe2160) 60 TO 7 SPFI 352 
WRITE(6936G1) MeNs XB YBoZ28 SPFI 353 
301 FORMAT(® SUBSONIC FLOW AT A Bo TCoIXe PNAHy T2p 3K oe X marl Oe Gy SX, eV at SPF] 356 
Lo Le Se SX a PZeey FLO. Ges op BSS$8838 SET NST#1 AND TRY GREATER VALUE OF SPFI 305 
22ST $$385%) SPFI 356 
STUP "SUBSONIC FLOW” SPF YI 357 

7 CONTINUE SPFI 356 
Pri=PHI +DPHI SpFI 359 

6 CONTINUE SPFI 366 
SPFI 361 

OIMENSIONAL FLOWFIELD PROPERTIES SPFI 362 
SPFI 363 

FACTORL*=SORT(PINE/DINE) SPFI 364 
00 84 MtlempMaXx SPFI 365 
O00 65 Nel,yNMAX SPFI 366 
URC M»sNJ SUR (MyNIFFACTOR] SPFI 367 
VROMeND SVR OMe ND *®FACTORI SPFI 368 
WK (MeN) BWR (MSN) FACTOR] SPFI 369 
USP (M»sNDOEUSP(MsN)FFACTOR] SPFI 370 
VIP(MeNIOVSP(MsNDSEACTORI SPFI 371 
WSP(MsN)@WSPC MON) FACTOR] S PFI 372 
RSPCMsN) akSPC( MeN) DINE SPF] 373 
ESP(MsN}) SESP(MsN)OPINE SPFI 374 
PSPUMs NI SPSPUMsN) *PINE SPFI 375 
YSP CMs NI @YSP( MeN) eRNZ SPFI 376 
XSPCMsN)=XSP( MSN) ERND SPFI 377 
ZSP(MsNISZSPI MeN) eRNZ SPF] 378 
RS(M9N) #RS(MeN)D RN? SPFI 379 
85 CONTINUE SPF I 380 
CCM) 2C (MN) FRN2 SPFI 381 
CZUM)0CZ(M) SPFI 382 
CPHI(M) SCPHI(M) €RN2 S PFI 383 
84 CONTINUE SPFI 384 
WRITE(65208) SPFI 385 


2038 


86 
207 
203 
301 


204 
1 


14 drRITE(6s206) MeN a XSPUMyN) SYSPC MeN) sZSP( MeN) oRSP( MON) pUSP( MSN) » 


l 
206 


902 
303 


alee 
La 


75 
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FIRMATC/ s/o fe S2Xa8/0///5STARTING PLANE FLOW FIELOS////%)/) 
PHI =0, : 
DOPHI#360./MMAX 

TF CSYM.EQ.0) DPHI®180./(MMAX=1) 

00 13 Ml®lsmNAXx 

Meh] 

IF(LCsNEs1) GO TO 86 

MS © MMAX/2 + 1 ; 

M = MMAX + MS ¢ 1] =" M1 

IF CALLE MS MOMS 4] >My] 

IF CSYMLEQO}MENMAX#1=41 

CONTINUE 

wRETE(62207) PHI 

FURMAT(/9/9* CIRCUMFERENTIAL ANGLE IN DEGRE= = #9F10.4)} 
WEITE (62203) RST(M) 

FORMAT(® SHOCK RADIAL DISTANCE DIVIDED BY RN = #5F10.4) 
aR ITE(6,501) 

FORMAT(/9/9* FOR CARTESIAN COORDINATE 85/5/) 
WRITE (6s 204) 


FORMAT (/ 9 GX pr FRB yo 4X5 FNS 5X HLS y LIX oe EXEL IX oS PY r GX eo #RHOS, LOX, But, 


LOXs FUF> LOX a FVEelLOX es PSP LOX FERr LOX s OMA, /) 
00 14 NelsNMAX 


VSPOUMsN) yp wSPOUMaN) o PSPU MeN) pESP UMN)» AMI MON) 
FORMAT(2I5,10£11.4) 

WRITE (69502) 

FORMAT (/9/9* FOR CYLINDRICAL COGRDINATE @9/5/) 
wRETE( 62503) 


FORMATO  GXa BM Er SX es BNE PSX ey ERE, LOXN, Pw HSL OX s RUS, LOX, F—V HP IK BMI By /) 


OG 15 Nel yNMAX 
ARITE( 62209) MoNe RSI MSN) PURI MON) »VR (Mon) a WRUMON) PAMUC MSN) 
PrHIePHIe¢DPHI 
ZSTBZST#OeO5#*RNZ 
CONTINUE ; 
TFCLC.«GT.1)? 6G TO 77 
ZST#CKl(3) *RN2 

ADD FORCE ANO MOMENT INFORMATION FOR SwINT 
THST#ACOS(1L.-CxX(3)) 
UTHPSTHST/9. 

THP® THST 

O00 #1 L219 
STPESIN(THP) 
STH(L)@STP 

CTPeCCS (THe) 

PHI =0. 
DPHI22.4PI/36. 

DG 40 IT#ls36 

CPsCOS( PHI) 
SPeSINCPHI) 
XBSRNe(1.-CTP) 
YoeRN€STPSCP 
ZBeRNSSTP FSP 
XI(LoI}#XxB 
YI(LoI)*Y6 
Z¥({bL,1)s28 

XPaXB-xX} 

YPsv6eyvl 

ZP#7Z8 

LP PaexKXPex? 

VYPPeYPp 

ZPPeZP-Z2 
XZeXPP*CB—-ZPPeSB 
Y3"2YPP 
Z3*XPPeSBeZlPpeca 
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SPFI 
SPFI 
SPFI 
SPFI 
SPFTI 
SPFI 
SPF I 
SPFI 
SPFI 
Hid ae | 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPF I 
SPFTI 
SPFI 
SPF I 
SPF I 
SPFI 
SPFI 
SPF 
SPFI 
SPFI 
SPFI 
SPF I 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
ae) § 
SPF I 
SPFI 
SPFI 
SPEI 
SPFI 
SPFI 
SPFI 
SPFI 
SPF I 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPF I 
SPFI 
SPFI 
SPFI 
SPFI 
SPF I 
SPFI 
SPFEI 
SPFY 
SPFI 


366 
387 
386 
389 
390 
391 
392 
393 
394% 
395 
396 
397 
396 
399 
400 
401 
402 
403 
404 
405 
£06 
607 
£06 
409 
410 
“13 
12 
413 
£14 
415 
416 
417 
418 
619 
&2C 
$21 


25 
626 


&28 
429 
430 


437 
638 
639 
&40 
4&1 
&&2 
&&3 
44% 
645 
646 
4&7 
4&8 
&49 


43 
44% 


40 


41 


a1 


33 


32 
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XPPax3*CAsy3esa 
YPPe~X3eSA¢Y38CA 

ZPPe8Z3 

XBABRN—-XPP 

RBA=SORT(ZPPee2+Yppee) 
ROO*SQRT(XdAes2eRBA8#2) 

PHO=ASIN(ZPP/RBA) ; 

IFCYPP.LT.00) PHdb=Pl-PHa 

CTASASIN(RSA/ROO) 

IF(X8Aa.LT.0) CTA®PI=CTA 

00 463 Jl» JMAX 

TFCCTA.LLT.TH(J)) GQ TG 4% 

JaeJ~-1 

JAay 

RATIOs(CTA-TH(JB) IS (THC UAI=THO dB) ) 

CALL LTPP CSAs I Bolo RATIGSELPsRIPsULPs VIP »PIP) 
PX(Lol)ePlpectp 

PY(Lol)s=PIPasrpecp 

PZ(LsTle=-pipesypasp 

PHI@®PHI+*DPHY 

PX(Lo37)sPyx(L51) 

PY(Ls37)ePY(Ly1) 

PZ(L»s37)=PZ(L,1) 

XP(Los7)#xI(b51) 

YIClLs37)evf elo) 

Zi(kLs37)=ZI (L521) 

THP®THP=OTHP 

INTEGRATION USING TRAPEZOIOAL RULE 

VO 51 Lel,1c 

AA(L) «9, 

38(L)#0, 

Se(tLd20, 

SOCL)#O. 

Se(L)#0, 

SF(lL) «#0, 

3G20. 

She). 

SI20, 

SJ#0. 

SK80, 

SL*0. 

CONTINUE 

UG 52 L2ls9 

00 53 I1,36 

AA(LIBAACLI +O. SC PX( Lo TD OPX(L,I4])) 

SEC LIBBB(LI+O.S#(PY(LyT)+PY(LyI41)) 
SCOLD#SCILD $0.58 (PZ(L,1)eP2(L,141)) 

POLL POSOCL POs SSC PLiLoTOVI( ie LI=PY(LoTIeZI(LoT)) 
soit deSDULieOesetPLils loli evithsleLi-py (lolol iel£ tls fe1)) 
SECLISSECLIGOsSe(PX(Lo LV eZICL oT )=PZEL gL) 8X1 tL oT)) 
Sree SEL NGO eSeCPKE Ls LoL DOZICLs lel I= PZiLoTe1beRE (Ls Le1)) 
SE Cece eee toe SSCPVC La Led dOxI(Lsloli=Px(LsLolevt lester y, 
SFCLISSECLI Os S#CPYC Lo LI OXI( Lol )=PRCLoLISYI Ly l)) 
CONTINUE 

AACLIPAA(L) ®STH(L) SCPHIeRN 
BS(LI=BB(LISSTHIL)I*DPHIeRN 
SCCLD#SC(LISSTHIL) ®OPHIERN 
SOCLISSOCLISSTHIL)I *SDPHITeRN 
SeCLIESE(LI®STH(L) #OPHIORN 
SFCLI@SFECLYSSTHIL) SDPHIORN 

CONTINUE 

OO 56 L®1s9 

SG*SG*OeS#CAA(LI*AA(LO1)) SOTHPERN 

SH*SH*O .5#(B8(L)+B3(LO1) 8OTHPERN 
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SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFY 
SPFI 
SPFI 
SPFI 
SPEI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SpFI 
S PFI 
SPFI 
SPFI 
SPFEI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 


450 
451 
452 
453 
45% 
455 
456 
457 
458 
459 
460 
461 
&62 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
47% 
675 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
486 
489 
490 
491 
492 
493 
49% 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
59a 
509 
510 
§11 
512 
513 


rom 
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SL#ST*O.S*(SCULI+SCCLEeLIISOTHPeRN 

SJeSJtO.5*(SD(L)*+SO(L*1)) *OTHP*RN 

SK*SK*HOSS#(SEQCLI*SE (L412) *0THPERN 

SLESLeO,5S#(SF(LISSFECLelIIEDTHP SERN 
54 CONTINUE 7 


DIMENSIONALIZc FORCES ANO MOMENTS 


FACTOR2 = PINF®(RN2/RN) 882 
FACTORS = FACTOR2Z/(RN2/RN) 
FACTORS = FACTORZ2*(RN2Z/RN) 
SG=aSG*FACTOR2 
SH#SH*FACTOR2 
SIsSI*FACTOR2 
SJBSJ#FACTORG 
SKeSK SF ACTORS 
SLESLFFACTORS 


09 55 L¥lslo 
XICLoel)sxI(lLs1l}*Rn2 
AA(LISAA(L) *FACTGRI 
BBCLI#S88(LIFFACTOCRZ 
SC(LIFSC(L) FACTORS 
SECLIBFSECLISFACTORZ 
SFCLIESFCLISFACTOR2 
SU(LIsSOCLI*FACTOR2 

55 CONTINUE 
PRIOz2.,.%P{[ 
Te (SYM2EQ.0) PHIG#=PI 
K29 
TQ MATCH SWINT INPUT FORMaT 
MS = MMAX / 2 + j 
Ou 76 Mal, MMAX 
LZMMAX*MS4¢]l—N 
TFUCMeLE MSIL EMSeloM 
LF(SYMeEQeO)LEMMAX¢ 1 = 
G(L)=C (AM) 
GZ(LdsCZ(m) 
OPHICL) sCPHI(M) 
DO 76 N®leNMAX 
KROCNsL) SRS (MeN) 
UD(NsL) VR (MeN) 
VOONoL) Se wR (MeN) 
WOCNs LD FUKC MSN) 
PO(NsL) PSP MeN) 

76 DDINes LI BRSPUMsN) 
WRITE(62210) 


210 FURMATC///9* UNIT FORCE AND MOMENT ON THE BLUNT NOSE CAPHy/,y 


L® OLSTse FRo TIP e 7X s FAXITALSs LOX» ENORMAL So LIX es *#SIDESs LIX eo SROLL Sp 1 OX 


2FY Awe eli Xe SPIT CH, /) 
00 73 Lelsld 


78 CONTINUE 


WRITE( 69211) XE(LoldsAACL do BB(LI»SCELIsSD(LIsSECLIsSF(L) 


2ll FORMAT(7E15.6) 
WRITe (62212) 


212 FORMAT(// 49% TOTAL FORCE AND MOMENT & 9/5 7X9 #AXITAL®e10X» *NORMALP911X 


LetS IDE Sr, l2Xe FROLL Fs LOX a SV Awe ro LOXe*#PlLTCHEs /) 


WRITE(69211) SGaSHeSToSdaSKaSb 
WRITE(65213) 


223 FORMAT(///e0 SHOCK LOCATION AND SLOPE AT 


Z 8 ZSTF9/ 5 BXe*PHI*, 1X, 


LEDOISTANCE Ss TXp FAXIAL Mo bX» CIRCUMFERENTIAL M5 /) 
WRITECGs214) CPHITCMDs GUM) sGZ(M) sGPAL (MH) » M2] pMMAX) 


214 FIRMAT(4E15.6) 


WRITECZ) NMAXs MMAXPALPHADS BETADs XMAL He GAMes PINE ep CINE as PHI OsK a 2ST» 
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SPF 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPF I 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPF I 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
$7E I 
SPF 
SPFI 
SPFI 
SPFI 
SF I 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPF I 
SPFT 
SPFI 
SPFI 
SPF I 
SPFI 
SPFYI 
SPFI 
SPF I 


314 
915 
516 
317 
218 
519 
220 
321 
322 
3923 
32% 
325 
226 
Jol 
526 
529 
330 
34 
232 
533 
934 
335 
336 
oni 
338 
5339 
540 
341 
542 
543 
544 
345 
546 
347 
546 
549 
350 
951 
552 
353 
954 
355 
356 
557 
358 
959 
360 
361 
362 
263 
36% 
265 
366 
267 
368 
569 
370 
571 
372 
973 
574 
375 
576 
Jif 


WN 
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SHo ST SGsSKoSLoSJrB3CLIoSCCLIZAACL) »SECL) oSFLL)sSD(L)> 
CPHITCM) + GOM)oGZUM) + GPHI CM)» Melo MMAX), 
CCROCNs MPs UDC Ne MDs VDONSM) os WO(NSM) »PDU NSM) »DDINS MN) Mele 
MMAX) sN@lyNMAX) 

CONTINUE 

STOP “NORMAL” 

END am 

SUBROUTINE ITPFC Jas JBoKoRATIOMEIPoRIPSUIPs VIP,PIP) 

COMMON/SPFL/SMAXsKMAXs XMACHy, GAM) NMAX » MMAX 

COMMIN/SPFE24K (30925959030 925)9D(30925)90130025 94) rp ETE 25) 

EL*Q( JB oe Ke 4) *D0(UBsK) 

EZSQ(JSAs Ke SG) *D( JAsK) 

RLsQ(JBsKeslj)*¥D(JBsK) 

R28=QO(JAs Kal I*¥O( Sask) 

ULFQ( JB eKe2)/0(Sbok el) 

UCFQ( Jar Ke2)/E( SA Ky]) 

Vie Q(IBsKe3)/Q( UB Ky 1) 

V28Q(SAsKa 3/20 JArK 91) 

EIPSEL*RATIO*N( E2—£1 ) 

RIPsRLORATIG#( K2—R1) 

UIP2UL¢RATIO#*F( U2<U1) 

VIP#VlteRATIG#( y2-y1) 

PIPS(GAMN-] .)¥(ELP ORI PHOS e(UlPeeZeyl Peer) ) 

ReTURN 

END 

SUBROUTINE ETATBCETs CEs L MAX) 

OIMENSION ET{]1) 

LMBLMAX~=] 

RAT@(CFe 2. V/(CFH1.) 

ET(1) 20. 

cT(LMAX) sl, 

OU 1] L¥2sL™ 

ETAC(L=1)*0ETAC 

EXa)] e7ETAC 

AXGERAT*#EX 

CT(LI=Le¢CF¥(1 ARG) /(1 0 4ARG) 

RETURN 

ENO 


SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
SPFI 
ITPF 
ITPF 
ITPF 
ITPE 
ITPF 
1TPF 
ITPF 
ITPF 
ITPF 
ITPE 
LTPF 
ITPF 
ITPF 
ITPF 
ITPF 
ITPF 
ITPF 
ITPE 
ETAT 
ETAT 
ETAT 
ETATB 
ETAT 
ETATB 
ETATB 
ETATB 
ETAT 
ETATS 
ETATS 
ETATA 
ETAT 
ETATB 


8ST 


TABULATED RESULTS FOR 
STARTING PLANE FLOWFIELD 
FOR CASES 1-8 LISTED 
IN TABLE 1 
OF THE MAIN TEXT 


8-78 Yl IMSN 
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<- ; = 0 = 0 = 
NM = 1.5, a = 159, g = 09, X., = 0.8 


CASE 1. 


Oc-d 


MACH NUMBER = 


1.50 


SPECIFIC HEAT RATIO 


JIMAX 


7A 


STARTING LOCATION X 
ANGLE OF ATTACK IN 
STARTING PLANE MESH 
CF=10000.0000 

NORMALIZED DISTANCE 


O-0000E+00 O.4167E-01 0,.8333bk-0)] 
Oe41LETE+00 0,.4583E+00 O.500U0E*00 
0,.8333F+00 O.KRTSO0E+00 0.9] 67E+00 


1.40 
KMAX ku» 

0.800 
DEGREE 


23 


= 15.000 


DISTRISUTIUNs MMAX = 


HETWEEN BODY AND SHOCK 


CIRCUMFERENTIAL ANGLE IN DEGREE 
SHOCK RADIAL DISTANCE DIVIDED BY RN = 


FOR CARTESIAN COORDINATE 


= 


a ec ee ec ee ed ee ed ed ee ed ed 


z 


Veen ouwfr Ww ve 


x 


0,6000F6+00 
0.4000E+090 
0.8000F +60 
O.H000E +00 
0.8000E+00 
0,.4000t 000 
0.8000E +00 
0.8000r +00 
0.8000F +00 
0 HO000E +00 
0-8000E+00 
0,8000E+00 
0.8000E+00 
0.60008 +00 
0.H000E +00 
0.4000 +00 
6, a000EF +00 
0,8000F +00 
0,H0O00F +00 
0.48006 +00 
O.HOONnE +00 
0.8000 +00 
Ue.HO0t +00 
O.H000E+00 
UeHO00E +00 


Yy 


0.9790E +00 
0,11636<01 
02.1345E+0} 
0.1520E+0)] 
O.1711E+0) 
0.16946+0) 
0.2076F +01 
O.2254E¢O! 
062442E+0) 
O0.2624E+01 
O.2HU7E+01 
0.2990E+0)] 
0.3173F +0) 
0.3355E +0] 
0. 353HE +6) 
O.3721E+01 
0.3904F +01 
0.4UH6E +01 
0.4269F +01 
024452F+01 
0.463>r +01 
0.4461/E+01 
0.500UE+0) 
OeHS]HIEe O01 
Oods shot +ul 


FOR CYLINDRICAL COORDINATE 


¢////35TARTING PLANE FLOW FIELD/S//// 


02.1250F +00 
0.5417++00 
0.4¥oH4t +00 


= 0.0000 


Z 


0.0000b+U0 
0.0000t+vU0 
0,0000E+00 
0.0000FE+00 
U,.0000F +00 
0.0000b+00 
0, dD00L+u0 
Uo0000E+U0 
0,.0000t+00 
0,0000b+00 
U.0000t+u0 
0.0000t+u0 
0.0000+4+60 
0.0000E+U0 
0,0000FE+U0 
0.0000E+00 
0,UhO0E+uU0 
0.00U0E +00 
0.0000t +00 
0.0000t+00 
0,.0000r +00 
U.0vO00F +00 
0.0000t +U0 
G,UVO00NE +00 
vobd000teud 


3.3656 


KHO 


0.5261E+00 
0.74353£+00 
0,875HE+00 
0. 9Y6hA4E+00 
0,1034E+01 
O.1lGH2ZE+0) 
HeLIIVESO} 
OolLI47E*0] 
O.11L70E°0)] 
O-LIRGE+O] 
0.1204E+0) 
0.1215EF+01 
021226£+0) 
0.1234E+01 
O-1P41E+0)1 
O,1247E+0) 
0.1°?53E+01 
0.1257E+01 
O.12F1E+0] 
Oe Po4GE+0) 
0,l2n7E +01 
0.1769E+0} 
OeL127ILE+O1 
G.1773E+01 
O.1275E+01 


0.21667E+00 
0.5833E+00 
0.10006+01 


NMAX = 25 
O.CUK3SZE+00 O42500E+00 0.2917E+00 
0.6250E +00 0.-666/7E+00 0.7083E+00 


u 


0.2095E*0)} 
0-1839E+9)] 
O.1712E+0) 
0.16032E+0} 
0.1S54)E+01 
0.1547E+01 
0,1523E+01 
V,-1LSUSE+0} 
0.14936+0} 
0,1463§+01 
O,1475E+0)] 
N.146S9E¢)] 
0,1464E+0) 
0,14600E+0) 
60,1457Eb+0) 
0.14546 +0) 
O0.145)t+0} 
0.14506+0} 
O0.144H8t +0} 
Vel447E+0) 
O.144¢6t eu] 
0.1445b¢0) 
0-21445E40] 
0. 1445Ee¢)} 
Oe 1444t +0} 


Vv 


02.4261F+00 
0.5961E+00 
0.6419 +00 
0.61 7E+00 
0.6512E+00 
Ue-6463E+00 
U.6404E +00 
026340E +00 
0e6282E +00 
006224E+00 
0.61 76E+00 
0.6129E+00 
0.60H9fE+00 
O0,.6051E+00 
0.6017E+00 
0.59H7E+00 
0-595HE+00 
U.5933F 400 
UseSYIOE*00 
0 o5HHYFE +00 
O-S5671F+00 
0.5e54E 400 
0.54 3HE°00 
0.5d25t.+00 
UeS81lb6E+OU 


p 


0.0000E+00 0.4194E+00 
0.0000F*00 0.674BE+00 
O.0000E+00 0,65)9E+00 


0.0000E+00 
0.Q0000E+00 
0.0000F+00 
0.0000E+00 
0.0000E+00 
0.0000E+00 
0.0000E+«00 
0.U000E+00 
0.00U0E+00 
U.00U0E+00 
U.0000E+00 
0.,.U000E+00 
0.0000F+00 
0,.0000E+00 
0.0000E+00 
0.U000E +00 
0 .0G00E+N0 
0.0000C+00 
O.,Ud0U0E+00 
O,U0U0E+00 
0.0000ct+n0 
0.00006+00 


0.9766E+00 
0,1067E+0] 
0.L1134E+0)] 
O.l145E+01 
Hol226E+0} 
0.12549E+01 
G.1284E401 
0.1306E+01 
0.1323E+01 
C.13I37E+U1 
O.1349E¢O] 
0.1359E+01 
Oo LSOHE+O1 
0.1376E+01 
0.13H2E+0)] 
0.1 308E¢01 
O-1392E+0) 
02.1396E+01 
0.1399E +0) 
UelL402E+0) 
Ool4U5SE+0)1 
Oo.1400uE+01 


0.3333E+00 06.37504+00 
O.7500€6+00 O.7917E+00 
2 MA 


O.2251F+0} 0.2024E+0) 
0.3058F+01 0,1 706601 
O0.3591E+01 OJ1567E+01 
0.3935E+01 O0.1479E+01 
O41 77E+01 0.1422E+01 
0.4355E+0] 0.1384E+0) 
0.4491E+01)1 0,1356E+01 
0-4596E+0)1 0.13366+01 
0.46461EF+01 0,1320£+0} 
O0.4744E+01 O,1307E+0)] 
044803E+0]1 0.129HE+0} 
064646E+01 0.1290E+01 
0.-4886836+01 0,12835EF+0)} 
Oe.4914E+01 O0,1277E+01 
0.4940E+01 0.1273E&+0] 
0.4963E¢01 0.1269E6+0} 
0.4961rF+01]1 0.1265E +0] 
0.499HE+01 0.}263E+01 
0.50116+01 0.1260E+01 
0.50236 +01 0.1258E+01 
0.5033e+01 0.1257E+01 
0.5042b+0] 0.1255£+02 
0.5049E+0] 0.1254E+01 
0e5057E+0)3 0,1253F+0) 
0.50656+01 O.1252E+0} 
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ae 
NO 
p— 


FOR CYLINDRICAL COORDINATE 


= 


s cedll coedll meeelll el eee ed el ce ed el ed ee ee oe ed el ed do a 


2 


OWoworw fe WN = 


R 


Ue9TIFRE*OU 
Oe 11636 +01 
U.1345E+01 
0.152Ke +0) 
O.171)6+01 
0.1A94E+01 
0.2076t+0} 
U.2259F +01 
Oe 2447 +t) 
Ue2O24E4+01 
U,2207F +0] 
0,.2990t+01 
0.3} 73E+01 
0.3355E+01 
U.353Ht +01 
0.3721¢t+0) 
0,.3904r +01 
0,406 +01 
0.4269E+0] 
024457E +01 
0.46356 +01 
Q.4817§+01 
U.5000E+0) 
0.5153¢+0) 
0.5366E+01 


U 


0.2095t +01 
U.-14639E+01] 
O.17lee+Ol 
0.1632E+01 


V 


Ue4PbLE¢u0 
6.596)b+00 
0.60419E+00 
0.65] 76700 


UsLSHIE*G) O.60512b+U0 


0.1547EF+01 
0.1523r +0) 
O.1LS5S05F +O) 
0.1493r+01 
0.14H4F.+01 
0.1475 +01 
0.146¥49E+0) 
0.14647+01 
0.1460t+01 
0-1457F +401 
021454h+01 
0.145lt+01 
0.145UF+01 
02-1446F +0) 
Oe L447re0t 
Uel440t +01] 
0.1445bh+01 
Uel1445k +01 
021445r+01 
021444t+01 


CIRCUMFERENTIAL ANGLE IN NEGREE 
SHOCK RADFAL DISTANCE DIVIDED SY RN = 


FOR CARTESIAN COORDINATE 


x 


NNVN TN VN NDR NNN NM NYDN NNN DN Wm 


z 


eowou FWA 


x 


VeH000F +00 
O.HOU0NE +e0 
0,87 00+ <0 
0.8000: +00 
0O.80lir +00 
O.80ut +00 
0.8400ur +00 
O.d000t +00 
G0.800NF +00 
0.0000r +00 
0,a8000F +00 
0.8000 +00 
0.,.4000r +00 
0.8s000b +00 
0.SOU0E +90 
0.8000+ +00 
0.,d000bF +00 
U.,6000F +00 
0.H000F +00 
U,8000r +00 
d.d000F ¢0u 
CC MPRED EL atte, 
O.d000E+00 
Uend00F 400 
0.-s00NE+00 


Y 


0.8485E+00 
0.99136+00 
O0.t134E+01 
uel277E+0)1 
Get420r+01 
O0.156c6b +01 
U.1705t+01 
U.1Kh4He+01 
0.1991t+01 
U.2133t+061 
Ue2276t+01 
0.24]9F +01 
0.2562E +01 
U.2/04r+01 
Ve2b47E+01 
0.299tt +0) 
0.31 33r +01 
O.327orebl 
0.34lotr+0] 
0. js56l Feu} 
6.9704t+0) 

» tishe «¢, | 
O. IVKYESO] 
0.4132be0)1 
0.2.4275¢e+0} 


02.6463F +0 
0.60404F ¢uG 
0,60 4140E 400 
Geordecteud 
0.6224E+00 
Ve6)76E+00 
0.6]29t¢u0 
UCN HIE U0 
0.60 51E +09 
U.ONITTE+ 00 
Ue,DYdTE cut 
UeSYSHE+U0 
O,5933b400 
VeDSYILOE+06 
U.eSASDECUD 
O0,5871b+00 
Ued5HK54E 400 
U,O#3KHE U0 
Oed425t 400 
0.5416E+u0 


w 


U.,UuNt0E+00 
G6.00NOF +00 
GeUVGOUE+00 
0.uU000E+00 
i VONVE+00 
0. V000E+00 
O0,000U0F +00 
0, 0000F +06 
0, 00006 +00 
0.,UV000F+¢00 
0.000 OF «00 
0.u000F +00 
0.00NGF +00 
0.00006 +00 
0.0000F +00 
0,000UF +00 
0.,.G000E+00 
0.0000F +00 
O.0000F +00 
0,V000E¢06 
0.U000E+00 
0.,0000F +00 
0,U00UE +00 
0.06006 +00 
9, 0000F +00 


= 30.0000 


zZ 

4 
0.4H99E+00 
0.5723E+00 
0.60547E+00 
O.7372E +60 
0.4196E 400 
UYO2UE «U0 
OYA44EeuL 
O.1N67TE+U) 
Uet149teu) 
O0eleP sere] 
Oeb3d14E+u} 
Oe139TE+U) 
O.1479t eu] 
G.15ole¢u0)] 
O.1AS4E+u] 
U.l/26be0) 
Gb, AU9Es+01 
Us,b&ylt +l 
Ue1973teu) 
VOeCNSht+eul 
weclsabertsl 

rae hh ek 
O.7gusteul 
O.2346t +1} 
U.2468E+U) 


4.9359 


RHO 


0.55463E+00 
0. 7556E+00 
0,.6904E+00 
0.9RNSE +00 
0.1045E+0)] 
0.,1093E+01 
OelLI36E+01 
OH LISYE*O) 
O.LlE2E+¢O] 
0.1201E+01 
0el216E+0)] 
O,12enF +0) 
0.1PA9F 40] 
H.124ck+01 
0.1255E+«O) 
telrAleEeobl 
UetrhbE +O) 
N.LPTLE+O1 
H.127>5E+61 
VelP TSF 40) 
ieirRuFenl 
» 1D. te ool 
WeleersErOl 
ietcronteoh 
Vel eKoErO] 


U 


0.2049E+0) 
G.ldlet+0)] 
0.L696E+*H) 
0.,1lo2nt+0)1 
veASTIECU) 
Gelb3TE+O) 
O,IS13E+0) 
0.)1495E+01 
0,14H2t+U} 
0-14735E+0) 
0e1465E+0} 
ue l46ft+0} 
021455FE+01 
0.145] t+u} 
0.144HE+01 
Oe T+46E+0) 
0.1444E+0) 
0.14427E+0} 
O.besdereul 
U.1440t+u)} 
O.l44Arey) 
io bo tt ub} 
O14 34b+04 
0,14 349E 40) 
0.143940} 


v 


0.49H6E+0U0-0.27466-0) 


0.6169E+00 
0 e63809F © OU 
U,64144h.+00 
0,437.36 +00 
0.6303t +00 
0.62336 +0u 
GUe61601E +00 
0.6096¢ 400 
0.6035E+00 
Uses9a2t +00 
0,5932F +00 
0 .58KB8bF +00 
0.-S5447E +00 
0 SHLUE+ 00 
G.otT7Tk +00 
G.5745E +00 
UeHTLHE+00U 
U.S oY2E+0U 
O.5d7UE +04 
0 ehoe9t OU 
tho eo dtie eft 
UVedsoldét+00 
025997F +00 
U2-5546E*00 


0.6414t-0)1 
O0-L1U017E+00 
Oe1l+HE+O00 
0.1204E+00 
0.i220b+00 
U.l220t+00 
0.1 2U4E+00 
0.1144rk+00 
0.1176cr+00 
Oe-115S9YE +00 
Uell42t+00 
Ue-liést+o0 
O-110¥E+00 
O.t0%4bk +00 
O0.30/4E +00 
0.1066c+00 
U.lGd5E +00 
U.e.l104¢1b+00 
UelU3UE +00 
O,lolstr+4nn 
yetutor +08 


ve lvOnesu0 
O.9YP23E-02 
0-YHOTE-0)] 


p 


0.4530E +00 
U.7002F +00 
OoHK7T2OE+00 
0.9¥40E+00 
0.1004E+0) 
VeLISIE+b) 
0.t204t+0) 
0612456201 
Vel27TBE+Ol 
0.1304 +01 
0.13266 +0) 
6.1444t¢ +0] 
Ue-1L35HE+01 
Uelifvler+0] 
Oelable+0] 
OetssoteOl 
Ue~L3IYHE+O] 
0.1404t+40)] 
0.1409¢+01 
0el413t+0) 


Tian a ae ee oe | 


Oebe2rt+ul 
Cele2SF+0)] 
Oo1427Eb.+01 


E 


O.2370E+0] 
0.3135€+01 
02.3645E+01 
0.3974E+0} 
O0.4217E+01 
U.4394E+0} 
0.4530E+01 
0.4636fb+01 
Ue4fe3ee+Ol 
0.4789E+01 
0.4H460-E+0]1 
0.4H91E+01 
0.4930t. +0] 
0.4962t+01 
0.49K9E+01 
U.5012E+01 
Ve5030E+01 
0.5047t+01 
Ue-5060E+01 
0.5071t+0) 
Ve5UFUE +Ul 
V.ofereet! 


UeDU9DSE+U) 


O.5101E+01 
0.510b6E+01 


MA 


O.1975E+01 
0.16836+0) 
0.1551E+01 
0.14660F+01 
0.14]10&+0) 
O.1371E+0) 
0.1343F+0) 
0.1322E+0) 
0.1307E+0)] 
Oe-12¥4E+0)] 
0.b2u5E +0) 
0.l276t +0] 
0.1270E+01 
0.1264E+01 
0.-1°6U0E+b0)] 
0.12566 +01 
0.1253E+¢u1 
O.125UE+0) 
0.-124HE +01 
Oeleebte*|fl 
0.17 45F +01 
0.1¢°44r +01 


O.124¢3reu] 
0.1242E+0] 
0.1242E+01 


p8t-v8 Yl IMSN 


FOR CYLINDRICAL COORDINATE 


MN NNN MN AR mh hhh AND PM PON PMR fA fh Mf z= 


cog 


z 


OaInNOMN SF WD = 


K 


0.9798F +00 
0.1145F+0)] 
0.1309r.+0} 
O.1474t +01 
0.1639F¢01 
0.-1804E+01 
0.1969F+0} 
0.2134b+0) 
0.279HFE +0) 
0.2463F+0) 
0.2628E <0) 
0.2793€+0) 
U.3123E+0) 
0.324HE +0} 
0.3452E+01 
0,361 7£+01 
O.3782t+*0) 
0,3947F +0) 
Oo4lbler+0l] 
0,.427764+0) 
056444)b+0) 
0.46U6t+01 
0.477 16401 
0,4936E +0) 


U 


V 


W 


0.2049F 401, O.4180E+0U0-0.2731EF+00 


0.18i6E+0) 
0.1696t+01 
0.-162UE+0)1 
O.1571E+01 
O0.1537E+0} 
0.1513€+01 
0.149>5F +01 
0.14H2E+0) 
O.1473F +01 
0.1465E+01] 
0.1460E+01 
0.1455E+0) 
O.1451E+¢01 
O.1444HE+01 
0214404 +01 
0.1444E+01 
0.1442F+01 
0.1441£6+01 
0.144U0E+01 
0e1440F+¢01 
Oe 1439E¢U) 
O0.1439E+0) 
O6.1439E+01 
0.1439E 00) 


CIRCUMFERENTIAL ANGLE IN DEGREE 
SHOCK RADIAL DISTANCE OIVIVDED BY RN = 


FORK CARTESIAN COORDINATE 


WWWWWld WWW WWWwWww WW Ww ww =z 


z= 


ONO S WA — 


A 


0.4000E +00 
0.8000F+00 
0.80006 +00 
040006 +00 
0.60004 +00 
0.6000E +00 
0 S000F +00 
0,H00NE+00 
0.8000E+00 
0,8000E+00 
O.HOU0E +00 
0,8000E +00 
0.H00HE +00 
0.800NE +00 
0,.8000e+00 
0.H000E+00 
0.8000E +006 
v.H000E+00 
O.HOUDE +00 
OMNOOOE ¢O0 
0,n000t «00 
0.H000E+00 
0.8000t +00 
0.8000t +00 


> 0.0000 +00 


Y 


0.40699F +00 
0.5562E+00 
0.6226E+00 
0,.6HA9E +00 
0.7552E+00 
U.8215F+00 
6.88 79E+00 
0.9542EF+00 
v~1021E+01 
O.10K7E +0) 
0.11536+01 
O.I2LSE+01 
OL 2HOE+01 
0.135cE +61 
VUe1L414E+01 
U.14HDE+0) 
0.1551 +01 
O-L6L7E+01 
Oe 1684E+u] 
Ued7TSur eOl 
O.1Rlot+Ol 
O.lH¥sreOl 
O.1949F 401 
0.20)5t+01 
0.2082E+01 


0,.563]t+00- 


0.2464E 400 


0.6042E+00-0.-2514E*00 
Vebl2bE+U0-0,221 3F +00 
Geol21lE+00-0.2144E+00 
0.6069E+00-0.2095E+00 
0,.6008t+00-0.2060E +00 
0.5939¢t+00-0.c034E+00 
0.5877E+00-0.2014E+00 
0.5ALSE+00-0.1999F +00 
0.5760E 200-0, 1FHTE+OU 
O-5708E+00-0.1977E +00 
0.566] 6400-0. 197UE*00 
0.5618E 200-01. 149h3E+00 
0.55978 +00-0,1958E+00 
0.55426 +00-0,1954E+00 
0.5509£+00-0.1950F +00 
0.5479b+U0-0,1947F +00 
0.£5450b+U0-01.1945F +00 
0654256 +00-0.,1943F +00 
0.5402t+00-0.1941F+00 
O-SIdOE+UG—0.1940E +00 
0.5361E+v00-0.1940E+00 
0-5344E 000-0. 1939E¢00 


0,.5331E+°00- 


0.1939E+00 


= 60,0000 


Zz 


0.4485r +00 
0.9634EF 400 
U.1078E+01 
UelLY3t+0} 
0, 130Kt+0)] 
0.1423t+¢u) 
U.1538b +0} 
0,.1653E+¢01 
0,1768r+01 
U.eIRB2E+u1 
O-1L9¥7TE+01 
O.2)l12bt+u) 
O.2227cre+ul 
Ueld42er+01 
0.2457t+u]1 
Oe2572b+U1 
0.26H7Kt+6) 
0.2802t+0} 
Oe.2P91L6E+01 
oe sale +o) 
U3 46t+U) 
Ue. 3201 E+U] 
Oes376t eu 
0.349lt cul 


Ue 3606E4GQ} 


4.1035 


RHO 


0.65)4E°00 
.5260E£ «00 
0. Y¥4K7E400 
0,10 33E+01 
0.1N95E+01 
021142F+01 
NHN LI7XE+¢01 
0.1207E+01 
Uel230E+0)1 
0,1248E+01 
0.1763E+0) 
0.1275E+0)] 
0217 h6E+0) 
Hel ?PS4E+O) 
0-1301E+01 
NA. LIOZTE+O1 
O0.1312E+0} 
O0-1316E+0) 
O,1A19E+¢0) 
O.142Z2E ed) 
Ge.1424F +01 
0.213760E +0) 
0.13277Ee0)] 
0.1320E*01 
O,13249E*01 


U 


O.192HE+*0) 
DelLT46E+0} 
0,16044E+0)] 
O,15THE+U} 
O0.1S3RE+0)] 
Oe.1SOIE+0} 
0,1479E+0} 
0,.1467E +0} 
O.1450E+0) 
0,1441E+6) 
0.1435E+0) 
0.1429E +0) 
0.1426E+0) 
021423E+0)} 
O.1421E+0) 
02.1419b+0] 
GO. 14]HE+O] 
O,1417E¢0) 
DeISLTE+O) 
O.1417E +0) 
O14 f/tru} 
O.1417Eb +0) 
O.1418E+0] 
O.1418E¢U) 
Ov.14}HEtul 


V 


0.-5893E+00 
0.64021E+00 
0.5950E +00 
0 .5822E +00 
0.5702rF+00 
0.5593E+00 
0.5501E+00 
0.5420E+00 
0.5353E+00 
0.5292E+06 
0.5242t +00 
0.-5196F+00 
U.5156E+00 
0 S5120E+00 
0eSO0KUEt00 
0.5059E +00 
0.5032E+00 
0,5009E +00 
DeAGHIE SND 
0.49675 +00 
UeS349E 000 
U.4933E+00 
Ue4¥1HE +00 
U.4904E+00 
0.4H91t+00 


W 


0.1135E+00 
0.2121F6+00 
0.2463E+00 
0.2563E+00 
0.25d0E +00 
0,.2554E +00 
0.2514E+00 
0.2464E6+00 
0.2414EF+00 
0.23626 +00 
0.2314E+00 
0.2266E+00 
0.2221E+00 
O.2179E+00 
0.213ht +00 
O.21l01E<N0 
0.<065t+00 
0.cO31E°00 
O0.1999E°00 
U.1969E+00 
0.1943£+00 
0.-)¥)13b+00 
Ge lbU7TE+O0 
G,1}466O3E+00 
O.1b41E+00 


P 


0.-565)E+00 
0.7903E+00 
0.9530E+00 
O.1071E+¢0) 
0.1159£€+01 
Oo.l226E+0) 
O.1279E+0) 
0.1320£+01 
0.1353F£+0) 
0.1380E+01 
0.1401E+0} 
Ve L41HE+01 
021433E+01 
0214456+0) 
001455E+01 
Oe l4o04Er+0]1 
Ool47lte+01 
Oo1477bE +O) 
0.1481E+01 
0.14485E +01 
GO 1487E+0)1 
0.1490E+01 
Usel491E+01 
Oel14¥2E+01] 
0.1494bE +01 


E. 


Oe2741E+0) 
0.3401E+01 
0,.3860E+01 
0.41 70E+01 
0.4398E+01 
0.4566E+0) 
0,4702E +0) 
0e4804E+U) 
0.48B9E+0) 
U.4954E +01 
0.5010E+01 
0.5054E+0] 
0.5092E+0) 
0.5123E+01 
0.5149E+*01 
0.5172E+0) 
U.5189E+0]1 
VU S205E¢0)] 
0.5217t+0)] 
0.522T7E+0) 
0.523560} 
Ue5241E 40] 
0.5246E +01 
Ved P°49E*O) 
0.5254E+0} 


MA 


0.1832E+01 
0.1606E+0) 
0.1489£ +01 
0.1412E+0) 
0,1360E+01 
0.1323E+01 
0.1296E+0) 
O.1276E+01 
0.1261E+0) 
0.1249E+01 
0.1240E+0} 
0.1232E+01 
0.1226E+01 
0.1222E+01 
0.121HE+0)] 
0.}215E+01 
0.12)}2E+01 
0.1210E+01 
0.1209€+0) 
0.120HE +0) 


0.1207§ +0). 


0.1206E+61 
0.1} 206E +01 
0.1206£+01 
0.12056+0)] 


p8v-78 Yl IMSN 


e279 


FOR CYLINDRICAL COORDINATE 


= 


WUWWWWW WW WWWWwWwwwowweuww www 


=z 


= 
CSCUAGN FMS WN & 


R 


O0.979HE+00 
O.}1LI2E+01 
0.1245t+01 
O.137hE +0} 
0.15106+01 
0.16436 +01 
G.1776E+0) 
0.190866 +0) 
0.2041E+0) 
O-2l1T4E+O) 
0.2306r+0} 
0.2439t+01 
0.2572E+01 
0.27046+0) 
0.2A37Te +0} 
0.2970E+01 
0.310er+0) 
0.3235t201 
0.3368tr+01 
U.3500E+01 
0.36335 +0} 
0.3766E +0} 
0,3A968- +0) 
0.4031F+0) 
0.4163E+0)] 


U 


0.1928E+01 
0.17466+01 
0.-16044E+01 
O.157HE+0) 
0.1533E+01 
O.1SOLE+01 
U-L479E+0]1 
0.1462F+01 
0.145VE+01 
O.1441E+¢01 
02-1435E+01 
0.1429F +0] 
U.1426F+01 
0.1423E+0) 
Oo1421E+0) 
0.1419E+0) 
0.1415E&+01 
O41 7E+01 
0.1417E+0} 
0.14) /t+0) 
Oo }417E+0) 
Oo14i/t+01 
0.1414r+0] 
0.14]16t+01 
O.l4lbeevl 


CIRCUMFERENTIAL ANGLE IN DEGREE 


SHOCK RADIAL DISTANCE DIVIDED BY RN = 


FOR CARTESIAN COORDINATE 


=z 


i i a ee ee ee Se Se a < 


= 


CENT ewe 


x 


0.H000F +00 
0.4000F+00 
0.8000F +00 
O0.H000F +00 
0,8000€+00 
0.400086 +00 
0.H000E +00 
0.HOO0E+00 
0.H00NE+00 
O.HO000E +00 
OD. HO0NE+0N 
0.H000r +00 
O.HAOOt 400 


Y 


0.320¢2t-U6 
0.3533t-U6 
0.3664E-00 
064196t -06 
0.45276 -06 
O6445UF -U6 
0.5)69r-06 
Oe552UE-06 
0.0052r-U6 
0.6183F -00 
U.6514F -06 
0 eAK45DE -UO 
O.7itor -06 


V W 


0.59306 +00-0.4536F +00 
0.48486 +00-0.4154F +00 
O.d1UKE*U0-0.5I922F +00 
0.5) 4}6+00-0.57H0F +00 
0.50456 +00-0. JE64HF +00 
0.5008E 400-0, 35666 +00 
064927E+00-0.3507E +00 
0.4844E900—-6.35462£+00 
0e4¢76O7TE+006-0,342KE +00 
O.4A9S2teuN—-, 4402F +00 
0264624E 400-0. 33A3F +00 
0.4500b+00-0.j3367F +00 
U.450)]te00-0.3355F +00 
0.4447b+u0-0,45345F +00 
02.434%6E 400-0, 53337E+00 
0.4¢349E4U00~0.3331E+00 
0.4304b400~-0.3326E +00 
0,.42704E400-0,.332cE+00 
VUe4?25te00-0.45) 4E +00 
0.4149E400-0.33] 7E +00 
0.41556+00-0.3316E6+00 
0.41236 +00-0,33156+00 
0.4093E400-0.3315£+00 
0.40656 200-0. 3315E +00 
0.491406 +00-0.33)5E+00 


= 90.0000 
3.4122 


Z 


0.974HE 200 
U,1LOKHLE¢G)] 
O,lIH2E+u1 
O.lern4ateyu} 
O.,)3a5t eu) 
Ue Lan7Es0) 
O.1S5dhb +0) 
UelbiStre+b)} 
U,179¥lE on) 
O.1AS2@E+U) 
0-1:993bEe¢u] 
O.CAYSE*U] 
Vecbvacr ey 


RHO 


0,.6029E+00 
0.94446 +00 
0,1N49E 40) 
Oellesr+O1 
O.lL1I7T9F +0} 
0.12727 +0) 
O.12S6F +01 
O.1AHCE +O] 
O.LINnGE+O) 
0,1320F +0] 
9.,13435E +01 
b144nF +9) 
(O,)4Sanreg] 


u 


OO. F7TBOE¢O) 
0.1652E¢0) 
0.1573£+01 
UelLSLAE CO] 
0. 1480E+0} 
0,1453E+0) 
0.1433E+0} 
0.14196 +0} 
G.140HE+0) 
O.1L40NE+0} 
0.1395E+0) 
0.1390t+U] 
OI SH7TF ef] 


V 


0 .4966E +00 
U.G624E +00 
0.4399T7E+0U 
0.4¢232F +00 
0.4114E+00 
U.4U26F+0U 
0.1961E+00 
O.39L1bE +00 
UO. 38736 +00 
0. 3H44F +00 
OeAKb21F +00 
0.3403 +00 
0.4/90F +00 


Ww 


0.361)6E+00 
0.394 1E+00 
U.4024E+00 
0.3941E +00 
0.3625E +00 
0.36492E+00 
0,jJ50H4E+00 
U.53449E+00 
0.3I340E+00 
0.t°3HE+00 
Ue3l46E+O0 
0.I059E+00 
O0.29H0E+00 


p 


0.75756 +00 
0.9506E+00 
O.1096E¢0] 
0.1204E+01 
OelZ2dT7E*O] 
Oe 1 350E+01 
U.1401t+0] 
02144UE+0] 
0.1472E+01 
O-14497E+0] 
O-1SIHE+01 
021534E+01 
U~a1954HE en] 


E 


O.3317E*U) 
0.3840E+0) 
O0.4223E +01 
Ue4490E +01 
0.4696E+0) 
0.44H47E 401 
Ue 4YTOE+01 
0.5063t+01 
0.5144-+0])] 
0.5203 +0) 
0.5256E +01 
0.5297E+0)] 
0.5332E+0) 


MA 


0.1636E +0] 
0.1484F+01 
0.)390E+01 
0.1320t +01 
0.1281£+01 
O0.124KE +01 
0.1224E+01 
0.1205t+01 
0.}1192E+01 
O.l1141b+01 
O.1173E+01 
O-1167E +0) 
OQ.llLOcE+O} 


p8v-78 Yl IMSN 


free P Pr PrreeHPe 


U.eGUUUr rh 
U.BOG0F +00 
0,H000r «00 
0,4000r +00 
0,.4000b+00 
0.6N00t+00 
0.HO00r +00 
U.H000E +00 
0.8c000F +00 
0.80006 +00 
0.4000F +00 
0,8000E +00 


VefhopctUn 
0.7K 3%r 00 
Oe.n17uUr-Uo 
0.8501r-05 
O.H4e3cr =-06 
0.9164r-Ub6 
0.49495t -96 
0.9n7?o0r=-G6 
VelNlbE~05 
0.104 7k —-05 
VelbHEE=-05 
0.11156-05 


%, 


Vec+sft tu | 
Ver *99E +0) 
UsgechbUubtrul 
O.cf01E+0} 
O.2%U3t+U] 
O,7H04Ee01 
0,2905t+u) 
VeSOOTE+0) 
0.3106 +01 
0.37U9St+6)] 
O.S3LTE+0) 
0.3412 eu)] 


edo wht 
Vebsafpes+dl 
(01,3766 +0] 
O,IsX0E+0} 
0,134 3E+01 
VelSRnE+O] 
0,138nE+O] 
0,1 3K9E+0) 
0.1390E+0) 
O,1LS91E+0} 
OeLAGIE+O0) 
0-L342E+0] 


Vessel 
U,s4JK4E+u) 
, bAHae +0) 
O,l3K3E +0} 
U,-LSHIE+O] 
U,lJn3E+y] 
He tjIna4k+Q) 
O0.1385E +H} 
O.L3nAK +0] 
0.13HBRE +) 
0.1369t+0) 
0.21390br+0) 


Us off Fi_rusy 
De,s77IFeOU 
U.s1765F #08 
O.A76]F +00 
U.3756E +00 
0.3756£+400 
0. 4/56E +00 
0.3756 +00 
0.3757E+00 
U.3758E +00 
0,3759F +00 
U.3761E +00 


UeCrUIE+UY 
UechH sob +0 
Oec?iSt+oo 
Oe27ISE+O0 
0.2600t+00 
0.coU7E+00 
0.2554 +00 
0.2511E+06 
0.°467E+00 
0.2424E+00 
0.23546+00 
0.2346E+00 


Ve loowe tug 
Use lboutev} 
Oe15/6E +0) 
Oelobble—+u) 
O,1l5xHd6EeU) 
0o1SS9E+01 
Oe 1592E+01 
0,-1593E+0} 
0.1594E +01 
0.1595t <0] 
0.1595E+01 
0,1595E+0)} 


Ve DIO EETUS 
0.5365tE +0) 
025405E +0) 
0.5420t+01 
0.5435E +0} 
0.2.5444E+0)] 
0.5452E+01 
0.54556 +02 
U2546°7E+0) 
0.5465£+01 
0.5465E+01 
0.546HE+01] 


Uelilidurrul 
O.1155E +01 
0.3153£+0} 
O.J151E+0) 
0.1150€ +0} 
0.11504 +0} 
O0.1150€+01 
O.1150£+0)] 
0.1150&+0) 
0.1151&+0) 
O.1151E +01 
O.1152E+01 


FOR CYLINDRICAL COORDINATE 


= 
Zz 


OenwowmFe WA &— 


R 


0.9798F +00 
0.1081&+0) 
0.J182E+0} 
0.1284E+01 
0.13456 +0) 
O.1487E +0} 
0.158BE+0) 
0.1689E+01 
O.1791E+01 
0.1892E 20} 
0.1993F+0)] 
0,2095E+01 
0.2196E +0] 


U 


O.1760F+01 
0.1652t+01 
0.15735£ +01 
O,15]16E+0) 
0.148Ur +01 
02.1453t+061 
0.2.1433F+61 
0.1419 +0} 
0.1400E +0) 
Oo.L400F +01 
0.1395E+0)] 
0.1390t +01] 
O.138/7F+01 
0.1385E+0) 


V W 


0¢3616E+00-0,4966E+00 
O.39SBLE*U0-0,.4624E+00 
0.4N24E+U0—-0,4397E +00 
0.39416 900-°0.4232E+00 
0.3H29E*00-0.4114E+00 
023692t400-0,4026£ +00 
0. 3568E+00-0,39nLE*00 
0.3449E+00-0,3911E*00 
0,.3340E200-0,3873E+00 
0.3238E+0U0-0.3H44E+00 
0.31466+00-0,3821E+00 
0.-3059£+00-0,3005E +00 
0.2980E+00-0.3790E+00 
Oe 2907TE*U0-0,.3779E 200 


¥c2-9 


0.279TEO) 
0.7°399E +01 
0.2500F +01 
0.2601E +0) 
0.2703E°0) 
O0.2H04E+0} 
0.2905E +0] 
0.3007E+0)1 
0.I1L08E +0} 
0.3209E +0) 
0,33911r+0} 
0.3412E+0} 


0.1364E +0) 
0.1383 +0) 
0.1383F +01 
0.)383F+01 
0.13836+01 
0-1384F+0] 
0.13985 +01 
O.13K66E+¢01 
0,134KE¢Ot 
0.1369 +01 
0.-1390E+021 


Q2X3SKHE+U00-0.3771E*00 
O.277T5SE+00-0.,37T65E +00 
CoCTISE+U0-0,.37H1F +00 
0.260604 +00-0.,.3758E +00 
0.2607E+U0-0,3756F+00 
0.¢2558E+00-0,3756E+00 
0o2511E+400-0,3756E+00 
0. 2467E+00-0.37457E 00 
0,.2424E+00-0,3754F 400 
OU, 2 A84E+00-0,5759EF+00 
Oo2346E+U0-0.37THLE +00 


i i ee ee oe oe Se oe Se Se SP Se oe Se a 


120.0000 
2.9017 


CIKCUMFERENTEAL ANGLE IN DEGREE = 
SHOCK RADIAL DISTANCE VIVIDED HY RN = 


FOR CARTESIAN COORDINATE 


p87-78 Yl IMSN 


= 


ASrrPrpn nw =z 
mw SCIEN TY FWD = 


x Y 


O.HOUGE +00-0.4499F+00 
0.80006 +00-0.52949E +00 
0O,.0008t +00-0.5700b +00 
O.d0UGr +OU-0,.6100t+00 
Ue4N00F -00-0.65 910400 
O0.4000t +00-G.5~01F +00 
0.80006+00-v./7301F +0u 
O0,.50006+00-U.770cE +00 
O0,H000r +00-U.810cK +00 
O,HOOOF +U0-0.45U5r +00 
OesOAHE 4h? "Dir eu 


4 


0.84465E ¢eutl 
O.917T9E+L0 
0.9872t+uU0 
0.1057teul 
Oe} 126teul 
0.1295t+0)] 
Vob7oSte0) 
0.1 3346E+0)] 
O,1403E eu} 
0.147 3t40) 
O.'>42ten] 


RHO 


0,9779YE*0G6 
0, l1OKXBE+01 
O,L173F+0) 
0.2234E+01 
0.12#3E +0) 
O0,1A1K4E+01 
0.1349F+0} 
0,1370E+*+0] 
ve1L4AYUE +O) 
O0.1404E+02 
O,14)6F 40] 


U 


0.1465NE +0) 
0.156340) 
0.1503t+¢0) 
U,1459b +0] 
O.142KHE+0] 
0.1405t¢0] 
O.13KGE+O)} 
U,l13ST7t+y)] 
0, 1L3IARE+)] 
0.1362E+0) 
O.}457t 0] 


V 


0.1975E+00 
0.}692F +00 
0.-1637E+00 
O0.16031E+00 
Usel654E+00 
0.})089E +00 
0.1733E+00 
O.] 7B0F +00 
De bHeERE+NO 
0.) 476£+00 
GO.1923F 400 


@ 


0.4954E+00 
0.4H07E+00 
0.4569E +80 
0.4325E +00 
0.41UZE+00 
0.1A499E +00 
Oe 3TITE*OO 
0,.3553E+00 
0,34UHE +00 
O.4277E +00 
0.3159 +00 


Pp 


0.9941E+00 
0.1156E +01 
OeI2H3E+0) 
O,I3STSE+O1] 
Oe 1450E¢01 
0.1505E+0) 
Gelosl&+0)] 
U.ldd4E+01} 
0-L613E +01 
0.1635b+0] 
0,.})653t +04 


E 


0.3964E+0} 
0.64359E 40) 
0,.4669E+0)] 
0.4H83E+01 
0.2505KE+01 
0.5142E +0) 
O.5291E+01 
0.5364E+60)] 
055434E+0) 
0.54H0E+01 
0.5533E+¢01 


MA 


0.1450E +0) 
O.1347E +0) 
0.127b6E+0) 
0,1225E+01 
O-1189E+01 
O-LI61E+01 
OeLIS1E*0) 
0.11 26E+0) 
O.1L15E+0] 
0.1107&+0) 
0.-1101b+0) 


Sé-g 


MUM rrNnron pr un 


VeHNDOKDE*SO0-0.45903¢t +00 
0.K000F ¢-00-0.9303E +00 
U.KNUNE +O00-0.9704E +00 
U.-HUGOE+00-U0.,1010E+01 
0O.cO000E+00-0.1050E+01 
0.8000F+00-0.1090E+01 
O0.8000E+00-0.11391t+01 
0.8000F+00-0.1171E+01 
0O.4000F +00-UV.1211E+01 


0.4000F+00-0.1251E+01 


O0.4000E+00-0.1291E+01 


0.4000b+00-0.13931E+u) 


0.4000 +00-0.13716+01 
0.50006 +00-0.14)]) 1F +01 
0.8000E+00-0.145]E+01 


FOR CYLINDRICAL COORDINATE 


FOOT MyrrNFT MTP nM nner Moy =z 


=z 


a pw tw 
NeKowvwenem wn = 


13 


a U 


O.1542t¢0)) 
UelOlLIEtO] 
O.fFfHEou)] 
O.1750rne+0)} 
OoIh1Gt+u} 
O,TRHObE eu} 
O.LYDKE+0)] 
0.2028E+01 
O.2N97ECU] 
O.2lo6beu) 
0.22356E +) 
0.2305F+01 
0,.2374E+U] 
0.2444E+u1 
O.2513b+0) 


V 


el4lok+Ol 
0.1420F +0} 
0.1434F +0] 
0.144vE 40) 
02-1445F +0] 
O0.1449F +0] 
0.1651 E+01] 
fhe l454E40] 
0.1454E+0) 
0-L455E401 
0.1455F +0] 
0.1455E +0} 
Ne 1454E 49) 
0.14535E +0} 
Ce 1L45S3E40] 


W 


O.97T9KE*00 0.1650F+01 0.3353 +00-0.4101F +00 
O.10606+01 0.1563E+01]1 0.331 7TE*U0—-0. 3KHH9F +00 
O.L140E+01 O.ISOSE+O! 0.6351 38E+U0-0.3702E +00 
O.l220t +0) O.1459E+0] 0,294508+00-0, 3575F +00 
O.230UE +O) HLS SKE CO] 0.27256 +00-0, 34K 3E +00 
O.139806+0)1 UL1405E+01 0.25326 +00-0,3412F +00 
On.1460E+0) OL3IA9E+O1 0.2353E¢00~0,.45360E 400 
0.15406+01 O.1377E+01] 0.21486 +00-0.3318E+00 
0.16206+01 0.1368F+01 0.20386 +00-0,.32KH7F +00 


Oebto7e ru) 
0.13544 uy} 
0.1352t +4) 
0O.135]t +b} 
0.,.1350E+0] 
O0,1351E+01 
O.1351c+01 
0.1357Pt+0j 
0,1354E +601 
0,1355t+0) 
0.1357t +0] 
0.13559E +40) 
0,.136Pt+0)} 
0.1364E+0} 
0.1366E +0} 


UslSe3e+0U 
0.14%6HE +00 
UerUIZE +00 
0.7°054b 400 
U.20495F +00 
G.2135€+00 
Uecl7 2b +06 
Ve22U9E 400 
Ue? 244E 400 
Oe2279E +00 
VePsletr+O0 
0.7344E+00 
0.23760E+00 
0.24U5E+0U 
0.2431E+00 


O.170lE eu) 
O.I78LE +0} 
0,186)6+0) 
O.194le +0] 
0.20216 +0) 
0.2101E+0) 
U.2181E+01 
0.226) +0] 
0.2341E+0)] 
Ue242)1E+0) 
0.2501E+0) 
0.254)E+0} 
0.2661E+0)] 
0.2742t +0) 
0.2A22E+0) 
0.2902EF+01 


0.1362E+01 
0.1357F +0} 
0.1354E+0) 
0.1352E+01 
O.135)E+01 
0.1350E+01 
0.1351E+02 
0.1351E+01 
0.1352E+01 
0.1354E+0} 
0.1355E +1 
O.1357E+0} 
0.1359E+u)} 
0.1362E+U1 
0.1364E+01 
0.1366E+01 


CIRCUMFERENTIAL ANGLE IN DEGREE 


SHOCK RADIAL DISTANCE DIVIDED BY RN = 


FOR CARTESIAN COOKDINATE 


= 


Po = a A? © 


z 


TNOW Sw = 


0.1900E+U0-0,.3263F +00 
O.1774E+00-0.3244F +00 
0.16586 +00-0.3230E +00 
O0.155lE+u0-0.32) 9E+00 
0.1452E+00-0,3211E+00 
0.1360E+00-0.3204F+00 
0.1274E+00-0.3200F +00 
0.11936+00-0.3197F +00 
OolI 16 +u0-0.319/F +00 
O.1047E+00-0,.319HF +00 
0.9ROTE-“uU]—-u. 3194 +00 
Oa) 56 -01-0.39199F +00 
0.86573b-01-0.3202E +00 
0.7998E-U1-0,.3205E +00 
0.74566 -1-0,320HE +00 
0.0977TE-01-0.3210F +00 


= 150.0000 
2.605} 


X Y 


0.8H000E +00-0,8485F +00 
0O.N000E +00-0,.907ZE+0U 
U.8000r +00-U0.9654E+00 
0 .8000b +00-0.1024E+0)] 
0 .n000E+NO-0.1083t+01 
O.AD00E+00-0.1142E +} 
U.KO00F +00-0.1200E+0) 
UsHOODE 00-0, 2259E +) 


Z 


0.4599t400 
0.57 36E 000 
0.95576t<«u0 
0.59) 5Ee¢u0 
0.607?53KE+¢uU0 
0.6592E¢u00 
0.6931E¢u0 
UeTPHAGECO 


RHO 


O.LI2ZLE+O] 
0.1207E+0] 
0.127HE+0] 
1eI3BPHE*O) 
O-I137TUE+0) 
0, Ll3a99FeQ] 
021476E+0} 
O2i444Es01 


U 


V 


0.15646+01-0.}60026 +00 
0,.1500£+01-0.}434F +00 
0.1453£+01-0.]203F +00 
O.1L417E +0} -0.9452E-01 
0.13976+01}~-0.7733t-01 
OsL37PE+O1 -U.5797E-91 
O.LISHE+01-0.59HcCF-01 
VelBI47TE*Ql—-UsnzZS41E-O} 


UetSIODVEC OU 
0.jJU5S]E+00 
0.24536 +006 
0,cCHOIE +00 
O0.27THOE+00 
G.2704E+00 
OeLb32t+00 
0.2567E+00 
0.2505E +00 
042448E +00 
0.2394E +00 
0.2343 +00 
0.2295t +00 
0.2250F +00 
0.2209E+00 


Ww 


0.35716 +00 
0.33466+00 
0.J115E+900 
0.2914E +00 
0.27366 +00 
0.2578E+00 
Use2l440E+00 
O.n.2 31, 8b «can 


UelodijiteOl 
0.lobot +0) 
OeL6O/KE+0)] 
O0.16H6E¢60)] 
0.16946+61 
0.169Ht+01 
O.1L701E+01 
O.1704E+0) 
O.1705E+0) 
0.1705t+01 
O.1704t+01 
Ob fust+01 
O.1701£b+01 
0.-1l164¥KHE+01 
0.-1697E+0) 


} 


O-12U9E+0} 
UezLIZBE+01 
Vel447E+O1 
GOeLS25E+01 
0e-1S90E +01 
O.lo3HE+0} 


Ue~elOHE+O] 
ALL7FO7E«al 


UsAD5SISE+O) 
0.5567E+U)] 
0.9596t+01] 
U.56019E+0) 
Ue5637E*O] 
0.56053E£ +0) 
U.5662E+0} 
0.5672E+01 
0.5676E+01 
0.5680E+¢01 
0.56A1E+0)] 
0,.5681E+6} 
U.56749E+0} 
0.5676F+0] 
0.567bE+0) 


E 


004482E +0) 
0.4783E+01 
0.5039£6+01] 
0.520bE +01 
0.5359t +01 
0.5461E+0] 


0.5555E «01 
A.bél ibs) 


O-lluleeol 
0.1096¢t+0]1 
0.10936 +01] 
021090b+01 
0.1084E+01 
0.-1084E+0)1 
0.10066 +0} 
0.1084t+01 
0.1089t +01 
0.1090E+01 
O.,1091E+0] 
0,1093F +0} 
0,1095E+0) 
0.1097E+01 
0.-1098E+01 


MA 


O0.1312E+01 
0.1239E*0) 
0.11446 +0) 
021144E+0)1 
O.1115E+0) 
0.1092E+01 
O.1IO75E*0) 


-& JO242RR401 


v87-78 YL IMSN 


92-9 


OAOPTAARAAORDSTKTHRHSKS 


0, c00Nt +O0-Uel3por ed) 
O,uuuie ¢00-VolITor +O) 
Ope cur s9h~-0.1243d5e 401 


Ooi “= 26+ O0.1494F Ol 
Ost... = a. 52r+01 
O,n600 eG. useie LIECO) 
OQ. - ° & 4 . .70E+0) 
0.8! “br +0) 
0.8 thie. + +6740 
0.900. -+06- ,-c46F +01 


O.8000° +00-G.1904E +0), 
0.8000c & &.1963F +01 
0.8000t+!. .-9.2021t +01 
0 d000F teu-0,2080r +01 
O0.HO00t +60-0.2139%E +01 
0.8HO00F: 90-0.2197E+01 


0.bN00E+00- 


0.2250r+01 


FOR CYLINDRICAL COORDINATE 


BRARODAASA HA AFRDAAGAOHRAAASCAARAHS = 


= 


oon ems WH 


R 


0.9798E+*00 
0,104HE+01 
O0.1115t+0)] 
0.1183b+0) 
0.12516 +0) 
0.131At+01 
0,1346t+0) 
02.1454t°01 
0.1522E+0) 
0.1569-E +0] 
0.1657t. +0} 
0.1725t. +01 
0,1792F +01 
0.1860E+01 
0.1926bt.+6) 
0.1996E+0)] 
0,c063t+¢0) 
0.2131€+01 
0.2199 +0) 
0.2266F +01 
0,.2334E +0) 
0.2402E+01 
0,2470E€+01 
0.2537EF+01 
0.2605E+01 


U 


0.1564E+0) 
0.150UE+0) 
00.1453F+01 
O.L47E+U) 
0e1392E+¢01 
0.1372E+01 
0.135b6e+0)] 
0.13476.+0) 
02.13406+0) 
0.1334t+0)] 
Oe1331E+01 
0.1329r+061 
0.1327F +0) 
0.1327F+01 
0.1327c+01 
0.1324E+01 
0.1330t+01 
0.1332b+0) 


O.1L334E+¢01- 
021336r+01- 
0.133%6+01- 
0.134cr+01~ 
0.13460t+01- 
O0.1349E+0l1l- 
0.1352E+01- 


CIRCUMFERENTIAL ANGLE IN DEGREE 


SHOCK RADIAL DISTANCE DIVIDED HY RN = 


FOR CARTESIAN COORDINATE 


= 


SWAN AW 


= 


S ££ & AD — 


x 


Y 


0.00046 +06-0,.9790E +00 
0.80006 c00~0.1644E +1 
OHOCHOE+OU-O.LLOSESUI: 
OHNOUGE*ON-U.LLIT SF eat 
Oe Mir eh ewe cul 


O,fF ORE uO OH, 1461 ECO) 
Oo7946E +00 001472E+0) 
0,.6285b*U0 0,148A2E+01 
0,b624b+U0 0.1490E+0) 
O,HIO2E4UO OL 1496E+O) 
0.¥30lreu0 0.1500E+01 
0.9639E+U0 UZISOSE*¢O! 
0.997THE +0 G,1506E¢0} 
VUelhs2reu) O.1S07TE*O) 
O-1066E+U1 0.1508E+01 
O-L099EeUL O.LSO7E*O) 
UeLIZZE¢u}] OeLSOOECO) 
GOel167b¢0] O.1505E+0) 
O.1POLE+u) O01 S03E +0} 
0.123540) O1SHIE+O1 
O.1769t+01 0.149KE*0)] 
O-L3UZE+U] O0.1497E+O1 


V W 


Oe AILTZE+00-0.2291E*0u 
0.2915E+U0-0,.2) K0E+00 
022599E+00-0.2096E +00 
Oe231L0E+U0-b.2031E+00 
0.2038E +0070. LYASE+00 
UslT9LE+00—-0.,1943E+00 
0.1565b4+u0-0,1914E+00 
0el302b+vu0—-0, LAGIE+00 
0.11 76t6+00-0.,1873E400 
0.1006bF+00-0.1859E+00 
0.4510E-01-0.1849E+00 
0.7080b~-01-0.1440E+00 
0.5760E-01-0,1434E°00 
0245366 -01-0.1A30E +00 
0.3397E=-01-0,.1827E+00 
0-22335E-0)-0.1425£6 +00 
0261339t-01-0.1824E+00 
0.*PKBE-02-0,14724E +00 
0.4673t-U2-U.1425E +00 
O0e1297TtE=-U1-0.1426E+00 
U.20K83E-U1-0,1426F +00 
0.2432E-01-0,14H30E+00 
05 3545E-0)-0.-1433E+00 
0.4197b-01-6.1436E+00 
06.4731t-u1-0.1839E+00 


= 180.0000 
2.0269 


Z kHO 


Ueh404r-U6 OLITTE?*02 
VevH25E-06 O0.1756E*0) 
OF PetrH-vA 0,1323E°0) 
UefhmoBE-tih UL1AEHE CO] 
i. OWG mh ue,lsa7eedl 


beh A40E OL SO pn O4F -0e 
OeLSS4ECUL UshF¥5t-Oe 
O0,L331E+0}] Oe} K74h-fh) 
0,1329E+0) U,3UTIE-O)} 
U,1L32ZTE+O} Ue4IB4SE-0} 
O.}327E+0)] O-5eAcE-b) 
QO, LIZTE+O] OALGCE-01 
Oe lLIZHE+O] O.7L04E-01 
GUelI30E*01] U.7960E~-01 
0.1337E+01 Oen7ouE-0) 
0-1334E+01 0.9529E-0} 
O-1336E+0] O.]026F +00 
O-1339E*O1 UALU94E+0O0 
0.1342E+01} O0.)160E+00 
0.1346E+0]) 0.1224E+00 
0,1349E+0] U.12KILE+00 
0.13526+01 0.1329£+00 


U V 


0.1536E+0)-U.3130E +00 
VelL47TTE+O -Uo7PTABYE+ OU 
Oe L4IZECO “UL P414E OU 
0.1400E+01-U.7UHK8F +00 
ALLATTECU—-uel fest eu 


Uec210b +00 
Oecd} 3b +00 
0.20266+00 
0O,194HE+00 
U,id77bE+00 
0,18 i2E+n0 
0.-1752E¢00 
0.1697£+00 
0.16047E+00 
0.1600t+00 
U21557E+00 
UeISILTE+00 
0.1479E+00 
0.1444E+00 
0.14106 +00 
0.-1380E+00 
0.1356E+00 


W 


0.95483E-06 
0.49046E-06 
0.6245E-06 
0. /6866E-06 
0.71499t-06 


O,ifaekeul 
Oe} /o0r+0] 
OellbSE ey} 
UellimnE+O)1 
OeL7b4E +0) 
Oe-17¥0b +0} 
GOe-17¥3t+01 
0-1796E+0)1 
Oo,L@y¥6E+0)] 
Oo.L7YTEO] 
02.1795t +0} 
O0.1792E+01 
Oo lLTH9E+0) 
0.1745E+01 
OoLTHIE+O1 
Ool7T76E+U1 
O.1773E+01 


P 


021294E*61 
Oo1415E+01 
O.15S1KHE+G6] 
O.1SYIECO] 
Oo.l652Eb+01 


U.d677bE+0) 
G,5714r +0) 
0.5756nE +01} 
0,574H3E +01 
0,.9805E +0) 
0,58236+0)} 
0.5834E +0) 
0.5845E +0) 
0.5844: +01} 
0.5653£+01 
0.5452E +01 
0.54851E+01 
0.5847E+01 
0.5842E+01 
0.5436b +01 
0.5428 +0) 
0.5826E+01 


E 


0.4680E+0) 
U.4954E +0) 
0.5193E+01 
0.-5348E+01 
0.54HhbE+0)] 


Oel054E+01 
0,}047E+0) 
0,1043¢ +0) 
0,3040E+01 
0,)034E+0) 
0,1037r+0) 
0.1037E+01 
0.l1038E+01 
0,1039E+01 
0.1041E+01 
0.10436 +0) 
0,10456+01] 
0.1046E+01 
0.,1051E+01 
0.1054E +0} 
0.1057&6+0} 
0.1G60E+01 


MA 


0.1263E+01 
O.J197TE+0)] 
O.}147£ +01 
O0.1109E+01 
0.l1003E*0)] 


p8v-78 dl OMSN 


Lo-g 


NNN NNN 


0.40005+00-0.,130cr+01 
0.80000C+00-0.1367t+0)] 
0.40006 +00-0.1431r+01 
0. BO000E4+00-0.1496F+0)] 
0.400N0F+00-0,.1560r+0) 
0O.HOU0E+00-0,1624r+01 
0,4000E+00-0.16A¥9E+0) 
O.-d00NE+0N-0,.1753F oot: 
O.4000E+00-0.,18146E+01 
O0.8000F +00-0,1882t+01 
0.8000F+00-0.1947E +01 
0.80006+00-0.2011F+0) 
0.80006 +00-0.2076E+0] 
O.8000tF «00-0.2140E+01 
0.8000t+00-0.2205E+01 
0.80006 +00-0.226%t +01 
0.s000E+00-0.2334r+01 
0.8000F +00-0,.239Ht+01 
0,.8000F+00-0,.2462£6 +01 
0.80006+00-0.2527F +0) 


FOR CYLINDRICAL COORDINATE 


m4 


ee ee ee 


= 


O ane MNS WD = 


R u 


UebS]}1t-UA 
0.Hd932E-Uh 
0.9353t-U6 
O.9Y7fSt—-uUs6 
0.,1020t-Uu05 
0,.1062t-u5 
O.1104b-05 
0211466 -65 
0.11468t-065 
O0,1230b-U5 
O.ieT2t-u5 
0.1315&-05 
0.1357E-05 
0.1 3996-05 
U.l441E-05 
Uel4d3E-U5 
0.1525t<-u5 
0.1567E-05 
0.1fO9E-05 
0.1652E-u5 


Vv 


Oel434E*+O] 
O.145HE+O1 
021474E+0) 
Ue14Hh9E 401 
ie 1499E +0] 
O.1SOHE+O1 
O-1LSTSE*+O) 
UelSPVE+O1 
Oeloc4EeO) 
0.1576E+01 
0.15S28E +0) 
0.157PHE+0) 
O,l5PHE*O) 
On.157PTEO1 
0.1575E+0} 
Oe1SPSE+0) 
Oels2le+d} 
O.LS]THF 401 
0.1515F+01 
0-15) 3E +0) 


W 


O.% (GHEE +00 


Ool4sireh 
O.)4- ret; 
0.1566'+6) 
0.1626 9 ::° 
0.1689 : 

O.1753e~-u. 
O.Lalse+6} 
0.1842t+9] 
0.1947t +0) 
O.2Albieed} 
0.2076t+0)] 
O0.¢140e+01} 
0.72205E+0] 
0.27269t<+0)] 
0.2334E+01 
0.23998E +0) 
0.24625 +01 
0.25276 +0} 


0.1536E +01 
O-1477t +01 
"5b 33E+01 
"8,3400b+01 
vel ATT +0] 
0.1354E+0] 
se t 346640] 

>Jo‘r +01 
vee SI0R+O1 
+21 3256 +01 
-1322t+01 
-e lL 32b0e6+0]1 
JelSIVE*O1 
VeIZLYE+01 


O0-1319E+01~ 
O.1321F+0l1- 
U.132ck+01- 
Usl1325t+01- 
0.1327E+O01- 
0.1330t+01- 
O0e-l333E+01- 
0.1336t+ul- 
Ue-1340E+01- 
0.13943bk+0l- 
U-1340E+01= 


6-63130b+00-0.7537E-06 
0.2789E+00-0./08 3E-06 
0.2414E+00-0.6667E-06 
0.2088E+U0-0.6321E-06 
OL 787E+00-0.6031E-06 
0.1524t+u0-0.5785E-06 
O.12K1E+00-0,5574F-06 
0.1065E+00-0.5391E-06 
0.4f71E-U01=-0.5233E-06 
0.68774 -01-0.5094E-06 
0.25718E-01-0,4971E-~06 
0. sBH6E-01-0.4860E-06 
0.2270E-01-0.4762E-06 
U.9571E-02-0.4673E-06 
0.2.26 28t-072 -0 .4593E-06 
0.1404F-01]-0.4522E-06 
0224716 -01-0.4455F=-06 
O.5472E~-U1-0.4397E~06 
0.4413E-01-0.4342E-06 
0.5307F-U1-0.4293E-06 
VeO1DS4SE-“U1-0.42e47E-06 
0.6903t-01-0,.4205E-06 
O.7737TE-UL-0.4167E-06 
G.5460E-U1-0.4131E-06 
0.9079E=-u1-0,4]00E-06 


Oe L4SGE+0)]—G.19246E+0U 
O-L3I4HE+U1~0.1281E +00 
0,.14360+01-0.1065£+00 
O-JASHE+UL-U.HO7I1E-O1 
O.LICSE+O01-U.68T77TE~-0)] 
0.1322E+01-0.521HE=-01 
O.1j20t+U]-0, 3086F-01 
O.L3LSGE +O) <O.2e27T0E-01 
O,1LALGVE+UL-0.9571E -62 
O.PSLSE+01]1 U.PO2KE-02 
O.}32le eu) 0.6.1404E-01 
0.1432°£+60] O0.7471E-01 
0.,k3256+0} Ue3472E-61 
O0.L327E+U1] 0.64413E-01 
O.b330E+0] 0,5307E-01 
O.1333C+0} O.6154F=01 
O.l33Kr+0) 0.6903E-01 
O.L340E¢U1 O.773TE=-01 
O-1L343E+04 0.846UE-01] 
O.1546E+01 0.9079E~-O1 


V.~.67K60E-06 
0.041 1E-06 
0.6068t-06 
0.5400E-06 
0.5543E-06 
0.5312r-06 
0.5101E-06 
0.4910E-06 
0.4736E-06 
0.%4576E=-06 
0.44304 -06 
064294E-06 
0.41 706-06 
0.4054E-06 
0.3946E-06 
0.3445E-06 
0.3750£-06 
0.3661¢-06 
0.3578E-06 
0.3507E-06 


02.16956+01 
Oe1733t.+01 
OslISHE+O! 
OL 7THIE+0) 
U.1796E +0) 
Oe LHUYE+O] 
Us-lLHYISE+01 
O-l1d25E+01 
Oe LSIDE+N1 
Q.21632E+01 
0.18I34E+01 
0.-1833E<«01 
0.1432E+0) 
Os. 1 829E+01 
02.1825E+01 
0.-1821E+01 
OelHl6E+O] 
O-1L810E+61 
0.-1804E+01 
0.1801E+01 


0.5578t+01 
0.566656 +01 
U.5720E+0) 
0.5774E +0) 
UeS810E+01 
0.5843E+01 
0.586 7¢t.+0) 
0.58864 +0) 
0.59015 +01 
0,5909EF. +01] 
0.591s6t+0)] 
0.591 HE+0) 
0.5921E+0)] 
O.S9L7E+O) 
0.5915F+0) 
0.5909E+¢0} 
0.5901E +01 
0.589:36+02 
0.5883E +0) 
0.5879F+0)1 


0.1063£+01 
Q0.1048E +0] 
O-1037E+01 
0.1030E +01 
0.1024E+01 
O.10C1E+U) 
0.101660) 
O-.1017E+01 
O.1017E+0} 
0.1018&+01 
0.1019E+01 
0.1020€+0) 
0.1023E+0)1 
0.1025E +0) 
0.-102HE+01 
0.103E+01 
0.1035F+01 
0.1039F+01 
0.104256 +01 
0.1045&+01 


v8p-v8 Yl IMSN 


"é JASWI 


oo = 0 =o fost = (2 ew 


v8p-v8 YL IMSN 


MACH NUMBER = 2.00 
SPECIFIC HEAT RATIO = 

JMAX = 28 

“STARTING LOCATION X = 0.800 

ANGLE OF ATTACK IN DEGREE = 15.000 
STARTING PLANE MESH DISTRIBUTION» MMAX = 7 

CF=10000.0000 

NORMALIZED DISTANCE AETWEEN 80DY AND SHOCK 
0.0000E+00 0,4167F-01 O-83°S3E-01 0.412506+00 
0.4167£+00 0,.4583F+00 0.50006+00 0.54176+00 
0.8333E+00 0.8750F+00 O.9167E*00 0.9583E+00 


NMAX = 25 


0.1667E+00 
0.5833&+00 
0,1000L+0) 


0.2083F+00 
0.62505 +00 


0.2500E+00 
0.6667E+00 


0.2917E+00 
0.7083E+00 


0.3333E+00 
0.7500E+00 


0.3750E +00 
0-7917E+00 


S////STARTING PLANE FLOW FIELD/S//// 


6c-9 


CIRCUMFERENTIAL ANGLE IN DEGREE 
SHOCK RADIAL DISTANCE DIVIDED BY RN = 


FOR CARTESIAN COORDINATE 


= 


Pe ee le ed ed oe ee el el ed ed 


z= 


OOAnN ew = 


X 


0.8000F+00 
0.8000E+00 
0,.8000F +00 
0.8000E+00 
0.8000F +00 
0.8000E+00 
0.B8000F+00 
0.8000E+00 
0.8000E+00 
0.8000FE+00 
0.,.8000F +00 
0.8000E+00 
0,.8000F+00 
0.8000E+00 
0.8000E+00 
0.8000E+00 
0.8000F +00 
0,.8000E+00 
0.8000E+00 
0.8000F +006 
0,.8000E+00 


2? 0.8000F+00 


0.8000E+00 
0.8000F+00 
0.8000E+00 


Y 


029798E +00 
O.1070E+01 
0-1161E+01 
0-.1251E+01 
061342E+01 
0.1432E+0)1 
021523&+01 
0-1613E+0} 
O-1704E+01 
O-17T94E*O)] 
0-1885E +0) 
0.1975E+0) 
0.2066E+01 
0.2156E+0)1 
0.2247E+0)1 
062337E+0) 
062428E +0} 
0.2518E+01 
0-2609E +01 
0.2699E+01 
0-2790E+0} 
0-2880E+0} 
0-2971E+0) 
0-3061E +0) 
063152E+0) 


= 0.0000 


Z 


0.0000E+00 
0.0000E +00 
0.0000E+00 
0.0000E+00 
0.0000E+00 
0 .0000E+00 
0.0000E+00 
0.0000F&+00 
0.0000E+60 
0.-0000F6+00 
0.0000E+060 
0.0Q00E+00 
0.-0000E+00 
0.0000E+00 
0.0000F+00 
0-0000F6+00 
0.0000E+00 
0.0000E+00 
0.0000E+00 
0.0000E+00 
0.0000E+00 
0.0000E+00 
0.0000E+00 
0.0000£+00 
0.0000E+00 


321518 


RHO 


0.5431E +00 
0.6990E+00 
0.8274E+00 
0.9302E+00 
0.1015E+01 
0.-1089E+0) 
0.1149E6+01 
0.1204E+01 
0-1253E+0} 
0.1296E+01 
0.1334E+01 
0.1369E+01 
O-1401E°01 
0.1428E+01 
021453E+01 
0.1475E+0)] 
021496E+0] 
0.1514E+01 
O-1S3IE+01 
0201546E+01 
0-1560E+0] 
0-1573E+0) 
0-1584E+0} 
0-1594E «01 
0.1604E+01 


U 


Ve 2468E+0)] 
Oe2280E+0) 
Ve2164E+0] 
0e2082E+0} 
0e2020E+0} 
Oe LST3ZE+0} 
0+1940E +0) 
Ve l1G13E+0} 
0. 1B9LE+01 
VelB73E¢0)] 
Ue LB59E+4+0} 
UslB847E+0) 
Oo lLBI7E+O] 
001828E+0) 
0°e1821E+*0) 
O« 1L814E+0} 
VelB0BE+0) 
O0-1803E+0) 
0«1798E+01 
0-1794E+01 
Qe lLTIOE+O] 
Oe} 786E+0) 
Oe 17S3E+0) 
Gel THEOL 
Usl7T79E+0] 


V 


0.5024E+00 
0.6876E +00 
0.7803E+00 
0.8322E+00 
0.8645£+00 
0.8866E+00 
0.90056 +00 
0.9112F+00 
0.9198E +00 
0.9764EF +00 
0.9310F6+00 
0.93466 +00 
0.9375E+00 
0.93946 +00 
0-9406F «00 
0.9413£+00 
0.9417F£+00 
0.9416E+00 
0.94146+00 
0.94086 +00 
0.-9401F+00 
0.9392F+00 
0.9382E +00 
0.9371£+00 
0.9356EF +00 


W 


0.0000E+06 
0.0000E+00 
0.0000E+00 
0.0000E+00 
0.0000E+00 
0.0000E+00 
0.0000E+00 
0.0000E+00 
0.0000E+00 
0.-0000E+00 
O.0000EF+00 
0.0000E+00 
0.0000E+00 
0.0000E+60 
0.0000E+00 
0.0000E+00 
6.0000E+00 
0.0000E+00 
0.0000E+00 
0.0000F6+00 
0.U000E+00 
0.0000E+00 
0.0000E+00 
0.0000E+00 
0-0000E+00 


P 


0.4652E +00 
0-.6937E+00 
0.8659E+00 
0-1006E+0) 
0e-1128E+01 
Oel232E+01 
O-1319E+¢01 
02.1396E+0]) 
O0-.1464E+01 
0.1525E+01 
0-1579E+01 
0.-l1627E+01 
O-l1671E+01 
0-1710E+01 
0.1745E+01 
OelL777E+O] 
02-1606E+¢01 
0.-18632E<01 
0.1456E+01 
0.1N78E+01 
0. 1898E¢0] 
0-1916E+0} 
0.1933E+01 
0.1948E +01 
0.1¥62E+¢01 


e 


0.293660) 
0.3712E201 
0,4349E+01 
0.4855E00} 
0.527000) 
0.5628E+01 
0.5925E#0} 
0,.6190E+0} 
0.6430EF#0] 
0.6644E+0) 
0,.6831E001 
0,7001ErU} 
0.7156E+0] 
0.7293E401 
0.7412E+0) 
0,7523E+0)} 
0.762220) 
O.7711LE*+0] 
0.779240} 
0.7866E+0)] 
0,7932E00} 
0.7994E«0} 
0,.8049€+0} 
0,8099F+0} 
0,.8144E01 


MA 


0.2252E+0])] 
0.20206 +01 
O-1900E+0} 
0-1821£+01 
0.1762E+01 
OeL7IS8E+0] 
0.-1687E+01 
0.1663E+*01 
0.1644E+401 
02-1628E +01 
O-.1616F+01 
0.1605E+uU1 
021595E+0} 
0.1588E+01 
O-1S8lE+0) 
0-1574E+01 
0.1568E+0] 
0.1563E+01 
0.1558E +01 
0.1553E+0} 
0-1549E+0)] 
0.15456 +01 
021542E*01 
0-1539E+0) 
0.-1536E¢01 


p8v-v8 Yl IMSN 


NSWC TR 84-484 


TO+3STST*°O 
TO0+38TST°O 
104¢3T2ST°O 
TO+372ST°0 
10¢382ST8-°0 
To*+3ZEST°O 
TO¢39EST*O 
TOs¢3T#St*o 
104+395ST°O 
to+32SST°O 
TO+438SST°O 
TN#3S9ST°O 
TO*+3ELST°O 
T0+3Z2RSt*0 
TO*3E6ST*O 
10+3S09T*°0 
TO+3T29T°O 
10*30%9T°O 
TOe3499T°9O 
TO0*#3969T*0 
TO+S3LELT*O 
TO+3E6LT°0 
10+3698T°O 
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©6570E +400 
e6570E 400 
26570E +00 
°6570E+00 
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«6570E +00 
«6570E +00 
06570E+00 
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FOR CYLINDRICAL COORDINATE 
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rh Ahh PPM A PO A PY PM PO 
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LeL-d 


*#¢¢¢#¢Ee PROGRAM SWINT DATE 84/11/29. TEME 196335604, F##*HHEE 


@¢eeFREE STREAM CUNDITIONS# 44% 


MACH NUMBER 3,5000E +00 
ANGLE OF ATTACK 5.-00U0E +09 
ANGLE OF YAW 0. 

VINF 1.3095E +03 
PINF 1.0000E +00 
DINF 1.0000E-05 
HINF 3-5000E 405 
HO 1.2075E£ +06 
SINF Os 


**4## PROBLEM SEF UPStet 


NC = 12 (NUMBER GF R-PLANES) 

MC = Lf (NUMBER OF PHI-PLANES) 

KA = 2000 (MAXET MUM NUMBER OF STEPS) 

ZEND » 80.0000 (MAXIMUM 2 VALUE} 

FACTOR =» ©3000 (CFL SAFETY FACTOR) 

PHIO = 180.0000 (MAXIMUM PHI) 

IDYAW = 0 (O-SVYHMETKICs L-ASYMMETRIC) 

IZONE # 0 CIF ITZONE «GT. O THEN REZOQNE) 

NSFO = 0 (IF NSFD .GT. O USER READS IN A MESH CLUSTERED IN R — DIRECTION) 
NSGD s 0 CIF NSGD .GFe 0 USER READS IN A MESH CLUSTERED IN PHI = DIRECTION) 
J41 * 1 (70 DIFFERENCE USING Meo M—-1 » =] USE MtleM — FOR PREDICTOR) 

JM2 * 0 (=Q UIFFERENCE USING Ms Mm-l » 81 USE MtlsM ~ FOR CORRECTOR} 

JN # i (#0 DIFFERENCE USING NoN-k » #1 USE NtlysN =~ FUR PREDICTOR) 

JN2 #8 0 (0 DIFFERENCE USING NoN-l » =1 USE NtelsN = FOR CORRECTOR) 

ISWOIF = 0 (=) ALLOWS OIFFERENCING OPTION TO BE SWITCHED IN SUCCESSIVE STEPS» =0 NO SWITCHING) 
ZCFLI s 160.0000 (LOWER BOUNDARY OF INTERVAL IN WHICH CFL FACTOR IS REDUCED) 

ZCFL2 = 160.0000 (UPPER BOUNDARY OF INTERVAL IN WHICH CFL FACTOR IS REDUCED) 

KFAC 3 CIN INTERVAL ZCFLL TO ZCFL2s CFL FACTOR REDUCED BY KFAC) 


*¢¢¢ OUTPUT CONTROL #4 


KOUT # 200 20 20 20 20 (PRINT FREQUENCY) 

ZPRINT = 10000 .00 10000.00 10000.00 10006.00 10000.00 (TRANSITION PT IN Z FOR KOUT) 
ZTARGET « 0.00 0-00 0-00 0.00 0.00 (TARGET QUTPUT STATIONS) 

NMAX = 3 (GQUTPUT RESTICTED FOR N wLEe NMAX) 

MMIN» MMAX # 2 8 {OUTPUT RESTRECTED FOR MMIN .LEw M ehEo MMAX) 
ZTAPE = 10000.0000 (PLOT TAPE WRITTEN AT EACH QUTPUT Z .GT. ZTAPE) 
DZPRINT = 10000,0000 (Z INTERVAL FOR FIELD OUTPUT) 

JJJJJ © 9 {6 PRINT DEBUG WRITE MESSAGES» #9 NO PRENTING) 
LLLEL = 9 {=6 PRINT DEBUG WRITE MESSAGES» =9 NO PRENTING) 
IPCID «= 0 (<0 PINF/P PRINTED IN OUTs =1 CP PRINTED) 

INTRE = 0 (NUMBER OF CONSTANT RAOTAL LINES FOR FIN SURFACE PRESSURE INTERPOLATION) 
RINT = = =. = -I ~|[ =I =I =| -I CINTERPOLATION RADE) 


*¢¢* WALL OPTIONS #444 


FSWSMO = 0 (ISWSMO = 1 -ENTROPY EXTRAPOLATION» =O ~STANDARD) 

ISWMOD = 3 (FORM OF BOUNDARY CONDITIGNS- O * 14As15Ay 3 = 14Ce15C) 

MOO1l = 1 (URDER JF ACCURACY =~ OF LST ORDER» 1*2ND ORDER UNTIL BODY DESCONTINUITY ENCOUNTERED) 
ISEP = 0 (0 = GN SEPARATIONs 1 = SEPARATION AND INTERIOR POINT SMOOTHING) 

ZJjLUW = 0.00 (LOWER SGUNDARY OF INTERVAL IN WHICH A BODY JUMP IS IGNORED) 
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B-122 


€cL-S 


MACH NO [SS 3.5000000E +00 ANGLE OF ATFACK IS 5-0000000E+00 ANGLE OF SIDESLIP IS OQ. 
PLANE 2 ANGLE IS 0.00 DEGREES 
STATION 0 213 6.5697966E-01 C IS 1446033V00E+00 CZ (8S 526063598E-01 CPHE IS 0O. 
B IS 9.393280E-0l B62 IS 3.6517601E-01 SAPHI ES Ov BZZ IS ~-1.206558E+#00 BZPHI IS Qe 
N R idl U V P RHO S M 
12 LeS603E#*O00 F.LO00ZEHO2 3.7773F+02 F3-O0720E-12 6-466872E+00 3.2413E-05 1.26372E+01 1.8333E#00 
1l 1.4130E+00 Q.0L65E4+02 3.6931E*O2 3eO267EK12 Ge4773ZE*00 3.0936E=05 1464056401 1.79966400 
10 1.3656E+00 8-9163E*#02 3.632UEtHO2 2e9IDLOEHK12 G2.2629E+00 2,.9461E-05 12.6440E+01 127648E400 
9 Le-3LOZEtOG0 AeBLIIGHECOR B.STOLEHO2 2.9557E“12 6.0419F+00 2.7989E-05 1.6476E+01 1.-7294F+00 
8 Le2709E+O0 B-7O7OE+O2 345054E4+02 2.91 98E-}2 5.4681466+00 2.6533E=-05 1.65126+01 1.6946E+00 
7 1622356400 Ge606LE+O2 364409E4+02 2.8848E-12 5.5802E#*00 2.5105E-05 126549E40] 1-6615£+00 
6 LeL7G1EtOO 8.51466 402 3.37960E4*02 2.8535E-$12 5433656400 2.3706E-05 1.6584E*OL 1.6318F+00 
5 L.I288EtO00 B.4401EtO2 39.4.3234F402 2.8286E-12 5.0789E+00 2.2329E-05 2L.6619E4#0] 1.46074E+00 
¥ LoO3SL4E*+OO0 B.391L0E402 Be273PEHO2 2eB8141E“12 4.8026E+00 2.0962E-05 1.6651E+0] 1.59036+00 
3 LeO34LE+O00 GBe3I782E+HO2 Be2ZOVEHO2 2.B8L35E-12 464956Et00 1.9562E-05 1.6682E4*01 1-25831F#00 
2 Qe B669E“0L Be4149EtO2 Je192Z21E402 2.8249E=12 4614866400 1.809¢E-05 1.671L1LE+01 1.5885E+00 
l 9e3933E-O01 8-5135E+02 3.0946F6+02 2.8612E-12 3.7964E6+00 1Le6667E-05 1-66737E401 1.6041E+00 
PLANE 3 ANGLE IS 30-00 DEGREES 
STATION 0 Z IS 6.5697986E=-01 €C IS 1.24723900E +00 CZ IS 6240155752E-01 CPHI IS -4.30291L30E=-02 
B IS 9,393280E-0Ol1 BZ YS 3.651761E-01 BPHI [IS O- BZZ 1S -1.206558£+00 BZPHI IS QO. 
N R bd U Vv P RHO 5 4 
12 LoS7T24EtOO DeLOGGEFO2 3.8568E+02 464747E4OL 6.6078E4*00 3.2234€-905 1.6369E401 1.8479F#00 
11 1.64239E+00 9eO283E402 3.7837E+02 4.4316E40L 6464038F+H00 3,0814E6E-05 1.6399E401 1-8167E+00 
10 L1.37556€+00 G.9353E#O2 BI.7T2L7TE+O2 4463963E40) G6eLIDLDEOO 2.9362E-05 1.6433E+OL 1478336400 
9 Le3270E+O00 B-83I24EHO2 3.6559E402 4.3605E#01l 5.9667E#00 2267857E=-05 1.6470E*#01 1.7475E+00 
8 Le27B85E+O00 Be7IOOECO2 3.5864E+02 4.43243E4+01 5.73506+400 2.6370E-05 1.66507E401L 1¢7122E+00 
7 Le230LE#OO0 BeO312E4+02 3.651604E4+02 4. 2900E+01 54649656400 2649LLE“05 1.-6544E+01 1266787E+00 
6 RelB16E400 F.5420E#O02 3.694N8EHO2 4.2616EH01l 5.24668Et00 2.34863E-05 1e6581E4+01L 1.64866+00 
5 LelLI3SZEHOO0 Be47TUZEHO2 363856E402 4262436Et0L 4.98768+00 2.2081E-05 1.66616E401L 1462396400 
4 LeOBS7TEHOO Be4248EHO2 FBe327TREHO2 4e2417ECOL 4. 7077E+00 2.0690E-05 126649E64#0L 1.6067E#00 
3 L.0362E+00 SBe4173E*O2 3462752E402 462614E401l 4.2.3972E400 1.9269E“905 1.6681E+01 1.5997E+00 
2 9eB7TTIE-Ol Be4G679EHO2 3.2334E402 4.3059E4+0L 4.0332E400 167739E-05 LeO7TLOEFOL 14-6084E+*00 
l Pe3SFZZE-OL Be5793E*#O2 3.12356402 4.3716E4O1l 3.6739E+00 166282E-05 1e6737E+O1 1462636400 
PLANE 4 ANGLE [IS 60.00 DEGREES 
STATION 0 Z IS 6,.5697986E-01 C {S$ 1.5053900E+00 CZ IS 6e7310806E=-01 CPHI IS -7.24083443E-02 
B IS 9.393280E-01 82 [S$ 3.651761E-01 ABPHI [IS 0. BZZ IS -1.206558E+00 AZPHI IS OO. 
N R W U Vv P RHO S$ H 
L2 Lo5SO054EtO0 F.1282E#02 4$,.0752E402 Fe7OLHE#HO1 6.4.3940E+00 3461749E-05 146356E401 1.8882E+00 
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